大きなファイルと出力の小さなアイテムの残りの部分に対応するに従ってファイル

1  ＃！/ usr / bin / perlの部分
2  
3  使用厳しいです。
4つの 使用警告;
5  
6  ＃#### #####入力
7  私の $すべて = $ ARGV [ 0 ]; 私の $ part_file = $ ARGV [ 1 ];
8  
9  
10  
11  ＃####ミアン##### 
12  
13  私の $ all_in =＆ストア（$すべて）;
14  私の $部分 =＆ストア（$のpart_file ）。
15  
16＆（チェック$ all_in、$部分を）。
17  
18  
19  
20  ＃####のサブ##### 
21  
22  サブチェック
 23  {
 24       私の（$ a_arr、$のp_arr）= @_。私 は％p =％{ $のp_arr }; 私 ％のA =％{ $のa_arr };
25       
26       foreachの 私の $キー（キー の％p ）
 27       {
 28           もし（$ { $キー}）
 29           {
 30               私 ％hash_2 =％{ $ { $キー}}。
31               
32               foreachの 私 の$ KEY2（キー ％のhash_2 ）
 33               {
 34                   であれば（（$ { $キー } { $のKEY2 }）&&（！（$ P { $キー } { $のKEY2 }）））{ プリント 「$ Aを{$キー} {$のKEY2} \ n " ;}
 35               }
 36           }
 37       }
 38  }
39  
40  
41  サブストア
 42  {
 43      私 に$ = シフト。オープン LIST、" $の中に" ;
44      
45      私 ％すべて。
46  
47      しばらく（私の $行 = <LIST> ）
 48      {   
 49          ムシャムシャ食べる（$ライン）; 私 @split = スプリット / \トン/、$ライン;
50          
51          $すべて { $分割 [ 0]}、{ $分割 [ 1 ]} = $ライン;
52      }
 53      リターンの\ ％全。
54 }