Question

Perl中怎么样将txt文件中的两个数组 按相同字段匹配然后同行输出

比如说两个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
这样的
有没有大神指导一下

Answer 1

#!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 就行了

追问

是这样 实际的数据大概有200多列 没办法直接往上加啊 另外能麻烦您加个注释吗 初学 好多地方没太看懂，万分感谢