Perl中怎么样将txt文件中的两个数组 按相同字段匹配然后同行输出 30
比如说两个txt文件test1是idnameheight1张明1632王明177test2是idweight155370想要的结果是idnameheightweight1...
比如说两个txt文件
test1是
id name height
1 张明 163
2 王明 177
test2是
id weight
1 55
3 70
想要的结果是
id name height weight
1 张明 163 55
2 王明 177
3 70
这样的
有没有大神指导一下 展开
test1是
id name height
1 张明 163
2 王明 177
test2是
id weight
1 55
3 70
想要的结果是
id name height weight
1 张明 163 55
2 王明 177
3 70
这样的
有没有大神指导一下 展开
1个回答
展开全部
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | #!perl use strict; my %data ; open F, "test1" or die "Can't open test1" ; while ( <F> ) { chomp ; my @parts = split /\s+/, $_ ; my $id = shift @parts ; my $this = $data { $id } = {}; $this -> {name} = shift @data ; $this -> {height} = shift @data ; } close F; open F, "test2" or die "Can't open test2" ; while ( <F> ) { chomp ; my @parts = split /\s+/, $_ ; my $id = shift @parts ; $data { $id }{weight} = shift @parts ; } close F; print "id\tname\theight\tweight$/" ; foreach ( sort { $a <=> $b } keys %data ) { my $this = $data { $_ }; print $_ . "\t" . $this ->{name} . $this ->{height} . "\t" . $this ->{ $height } . $/; } |
更多追问追答
追问
十分感谢 想问一下 如过实际数据没有列名 只要是有相同得数值 就匹配上同行输出应该怎么做呢?
追答
打开 test1 文件, 在第一行加入
id name height
存档, 然後打开 test2 文件, 在第一行加入
id weight
存档. 之後再跑上面的 script 就行了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询