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

Answer 1

我将创建一个散列，其中每个键都是文件输入中的前 3 个字段，并迭代每个文件，将值推送到一个数组中，该数组就是散列的值。
请告诉我您是否想查看实际代码。

Answer 2

你真的不需要 perl 来做到这一点。这是一个有效的 2 行 shell 脚本：

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 有你的输出数据