我有一个带有几个键的散列,每个键有 20 个值。
%test={
a=> 10 14 34 56 ....
b=> 56 67 89 66 ...
..
}
@values= {a,b,..}
我想将此哈希中的值绑定到另一个文件,如下所示
我的输入文件.txt
ID
ID
ID
...
预期文件.txt
ID ,10 ,56
ID ,14, 67
ID ,34, 89
ID ,56, 66
..
我的代码现在将所有值与文件的第一行联系起来。请帮助格式化它。
my $match = "ID";
tie my @lines, 'Tie::File', 'file.txt' or die "failed : $!";
for my $line (@lines) {
while ( $line =~ /^($match.*)/ ) {
$line = $1 . "," . join ',',@test{@values};
}
}
untie @lines;
现在我的输出是
file.txt
ID ,10 ,14, 34, 56,... 56, 67, 89, 66....
ID
ID
ID