求助大神超大文件处理

tingshuibanxia

原来用二维哈希可以解决！多谢

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub Load{
   
6.         local @ARGV = @_;
   
7.         my $data = {};
   
8.         my $k = '';
   
9.         while(<>){
   
10.                 (local $_) = split;
    
11.                 if(substr($_, 0, 1) eq '@'){
    
12.                         $k = substr($_, 1);
    
13.                         next;
    
14.                 }
    
15.                 $data->{$k} .= $_;
    
16.         }
    
17.         $data;
    
18. }
    
19. 
    
20. my $data = Load(splice(@ARGV, 1, 2));
    
21. while(<>){
    
22.         my ($a, $b) = split;
    
23.         next unless(exists($data->{$a}) and exists($data->{$b}));
    
24.         print(join(' ', $a, $data->{$a}, $b, $data->{$b}), "\n");
    
25. }

复制代码

perl abc.pl f1 f2 f3