PROSAGA码农传奇-perl-是否可以使用两个键和值来合并多个文件？

<div class =“post-text”itemprop =“text”>
  <P>
    您使用哈希是在正确的路径上，您只需要从每个表的列计算密钥。解决方案的部分：
  </p>
  <UL>
    <LI>
      使用读取3个TSV文件中的每一行
      <a href="https://metacpan.org/pod/Text::CSV" rel="nofollow noreferrer">
        文字:: CSV
      </A>
      <UL>
        <LI>
          对于每一行，调用特定于表的代码ref
        </LI>
        <LI>
          提取密钥所需的2列，并将它们连接到密钥字符串
           <code>
            $key
          </code>
        </LI>
        <LI>
          对于第一个表：在数组中保存键
           <code>
            @order
          </code>
          ，即它定义了输出表的顺序
        </LI>
        <LI>
          在哈希
           <code>
            %table
          </code>
           关键
           <code>
            $key
          </code>
          ：将从此表到最终表的列推送到数组引用
        </LI>
      </UL>
    </LI>
    <LI>
      循环
       <code>
        @order
      </code>
      <UL>
        <LI>
          获取数组引用
           <code>
            $key
          </code>
           来自哈希
           <code>
            %table
          </code>
        </LI>
        <LI>
          将行转储为TSV使用
          <a href="https://metacpan.org/pod/Text::CSV" rel="nofollow noreferrer">
            文字:: CSV
          </A>
           至
           <code>
            STDOUT
          </code>
        </LI>
      </UL>
    </LI>
  </UL>
   <pre class="lang-perl prettyprint-override">
    <code>
      #!/usr/bin/perl
use warnings;
use strict;
use autodie;

use Text::CSV;

my $csv = Text::CSV->new({
    binary   => 1,
    eol      => "\n",
    sep_char => "\t",
}) or die "CSV creation\n";

sub read_file($$) {
    my($file, $code) = @_;
    open(my $fh, '<', $file);
    while (my $row = $csv->getline( $fh )) {
        $code->($row);
    }
    $csv->eof or $csv->error_diag();
    close($fh);
}

# Output table + row order
my %table;
my @order;

# Table 1
read_file($ARGV[0], sub {
    my($row) = @_;

#print "ROW 1 @{ $row }\n";
    my($col1, $col2) = @{ $row }[1,2];

# column_1, column_2 define key
    my $key = "${col1}${col2}";
    #print "KEY 1 ${key}\n";

# table 1 defines order
    push(@order, $key);
    # ID, column_1, column_2, column_3 from table 1
    $table{$key} = $row;
});

# Table 2
read_file($ARGV[1], sub {
    my($row) = @_;

#print "ROW 2 @{ $row }\n";
    my($col4, $col5, $col6) = @{ $row };

# column_4, column_5 define key
    my $key = "${col4}${col5}";
    #print "KEY 2 ${key}\n";

# column_6 from table 2
    push(@{ $table{$key} }, $col6);
});

# Table 3
read_file($ARGV[2], sub {
    my($row) = @_;

#print "ROW 3 @{ $row }\n";
    my($col7, $col8, $col9, $col10) = @{ $row };

# column_7, column_10 define key
    my $key = "${col7}${col10}";
    #print "KEY 3 ${key}\n";

# column_7, column_8 from table 2
    push(@{ $table{$key} }, $col7, $col8);
});

foreach my $key (@order) {
    $csv->print(\*STDOUT, $table{$key});
}

exit 0;

</code>
  </pre>
  <P>
    测试运行：
  </p>
   <pre class="lang-none prettyprint-override">
    <code>
      $ perl dummy.pl dummy1.txt dummy2.txt dummy3.txt 
A       100     100001  X       X       100     120000
B       100     99999   Y       Y       100     66666
C       100     88888   Z       Z       100     77777
D       99      100001  Y       Y       99      100000
E       99      88888   Z       Z       99      44444

</code>
  </pre>
</DIV>