Perl - 共通ディメンションでファイルのメトリックを連結するスクリプト

Question

3つのファイルのメトリックを共通のディメンションに基づいて1つのファイルに連結したいとします。

例：

 
File 1: 
A B C 10 20 
A D C 30 40 

 
File 2: 
A B C 100 200 
A D C 300 400 

 
File 3: 
A B C 1000 
A D C 3000 

 
Output File: 
A B C 10 20 100 200 1000 
A D C 30 40 300 400 3000 

私はすべてのキーは、ファイル入力から第3のフィールドをハッシュを作成し、に値をプッシュするすべてのファイルを反復なる

Answer 1

配列はハッシュの値です。 実際のコードを表示するかどうかお知らせください。

Answer 2

これには本当にperlは必要ありません。ここで働く2行のシェルスクリプトです：

join file1 file2 | sed -e 's/\([0-9]\) [A-Z] [A-Z] /\1 /g' > file4 
join file3 file4 | sed -e 's/\([0-9]\) [A-Z] [A-Z] /\1 /g' > file5 

file5は、出力データ