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
这样的
有没有大神指导一下

#!perl
use strict;

my %data;
open F, "test1" or die "Can't open test1";
while (  ) {
    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 (  ) {
    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} . $/;
}

可以私聊我~

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息