两者有超过300百万个以管道分隔的记录,第一列为主键.行未排序.第二个文件可能有第一个文件没有的记录.

示例文件1：

1001234|X15X1211,J,S,12,15,100.05

示例文件2：

1231112|AJ32,18,JP     
1001234|AJ15,16,PP

输出：

1001234,X15X1211,100.05,AJ15,PP

我正在使用以下代码：

tie %hash_REP,'Tie::File::AsHash','rep.in',split => '\|'
my $counter=0;
while (($key,$val) = each %hash_REP) {
    if($counter==0) {
        print strftime "%a %b %e %H:%M:%S %Y",localtime;
    }
}

准备关联数组需要将近1个小时.
这真的很好还是真的很糟糕？
有没有更快的方法来处理关联数组中的这种大小的记录？
任何脚本语言的任何建议都会有所帮助.

谢谢,
尼丁T.

我也尝试过以下程序,walso花了1小时如下：

#!/usr/bin/perl
use POSIX qw(strftime);
my $now_string = strftime "%a %b %e %H:%M:%S %Y",localtime;
print $now_string . "\n";
 
my %hash;
open FILE,"APP.in" or die $!;
while (my $line = <FILE>) {
     chomp($line);
      my($key,$val) = split /\|/,$line;
      $hash{$key} = $val;
 }
 close FILE;
 
my $filename = 'report.txt';
open(my $fh,'>',$filename) or die "Could not open file '$filename' $!";
open FILE,"rep.in" or die $!;
while (my $line = <FILE>) {
      chomp($line);
  my @words = split /\|/,$line;
  for (my $i=0; $i <= $#words; $i++) {
    if($i == 0)
    {
       next;
    }
    print $fh  $words[$i] . "|^"
  }
  print $fh  $hash{$words[0]} . "\n";
 }
 close FILE;
 close $fh;
 print "done\n";
 
my $now_string = strftime "%a %b %e %H:%M:%S %Y",localtime;
print $now_string . "\n";