论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2015-09-24 09:35 |只看该作者 |倒序浏览

本帖最后由 baiguihuajl 于 2015-09-29 13:51 编辑

如何用perl,按照每个文件第一列的名字将很多个txt文件合并，并且保留第一列存在相同名字的数值：
如将文件1.txt和2.txt和3.txt...合并
1.txt:
a 1
b 2
c 3
d 4
e 5
2.txt:
a 2
c 5
d 2
e 1
f 2
3.txt:
b 3
c 5
d 2
e 5
s 5
合并成:
c 3 5 5
d 4 2 2
e 5 1 5

文库|博客

b114213903

丰衣足食

论坛徽章:: 7

2楼 [报告]

发表于 2015-09-24 10:01 |只看该作者

试试用HASH

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

baiguihuajl

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2015-09-24 14:43 |只看该作者

能具体告诉我这么写代码吗？虽然知道哈希，但是不知道怎么用，而且将多个txt文件合并的循环也不会。。。谢谢哈~
回复 2# b114213903

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

MMMIX

广告杀手

论坛徽章:: 95

4楼 [报告]

发表于 2015-09-24 17:56 |只看该作者

本帖最后由 MMMIX 于 2015-09-24 17:57 编辑

回复 3# baiguihuajl

先别想 hash 或是循环什么的了。这个问题你倒是有思路没有呀？没有思路（逐步描述的伪代码），就先去想思路；想清楚，有思路了，直接把它翻译成 Perl 代码就完了。要是翻译过程中有什么问题，可以发贴问。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

ba_du_co

白手起家

论坛徽章:: 0

5楼 [报告]

发表于 2015-09-25 13:52 |只看该作者

一个思路

use 5.010;
my $c = 1 + @ARGV;
while (<>) {
( $a, $b ) = split;
push @{ $_{$a} ||= [$a] }, $b;
}
$c - @$_ or say join "\t", @$_ for values %_;

复制代码

perl join.pl 1.txt 2.txt 3.txt 4.txt 5.txt

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

baiguihuajl

白手起家

论坛徽章:: 0

6楼 [报告]

发表于 2015-09-25 14:14 |只看该作者

好的，谢谢~~~回复 4# MMMIX

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

baiguihuajl

白手起家

论坛徽章:: 0

7楼 [报告]

发表于 2015-09-25 14:17 |只看该作者

可以做出来，太感谢你了，我还要琢磨一下每句话什么意思~~~回复 5# ba_du_co

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

baiguihuajl

白手起家

论坛徽章:: 0

8楼 [报告]

发表于 2015-09-25 14:46 |只看该作者

for($i=1;$i<=4;$i++){
open(DATA,"$i.txt");
while(<DATA>){
chomp;
@line=split(/\t/,$_);
if($i == 1){
$hash{$line[0]}=$line[1];
$num{$line[0]}=1;
}else{
if(exists $hash{$line[0]}){
$hash{$line[0]}.="\t".$line[1];
$num{$line[0]}++;
}
}
}
close(DATA);
}
foreach(keys %num){
if($num{$_} == 4){
print "$_\t$hash{$_}\n";
}
}

复制代码

还有一个比较容易看懂的代码~~~

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

2013fish

白手起家

论坛徽章:: 0

9楼 [报告]

发表于 2021-03-10 09:00 |只看该作者

perl 非常好用，谢谢高手。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 程序设计 › Perl › [已解决]~~用perl将几个txt文件按照每个文件第一列相同 ...

网站地图	申博太阳城注册	申博现金网址	百家乐真人游戏	申博登录不了
申博游戏手机下载	太阳城申博娱乐城	申博游戏官网登入	菲律宾申博真人娱乐
申博官网登录	申博太阳城登入	ag真人娱乐	申博代理开户
真钱百家乐	幸运大转盘	申博138开户	申博太阳城直营网
申博官方网址	ag国际馆	太阳城登入	申博游戏下载

[已解决]~~用perl将几个txt文件按照每个文件第一列相同名字合并，谢谢 [复制链接]