在perl中连接两个文件（表）

我想使用perl将两个文件合并到一个文件中。更具体地说：

我有一个包含列的txt文件：

Irrelevant / Key / Various1 / ... / Various N

Key / Price

以及第二个包含列的txt文件：

Irrelevant / Key / Various1 / ... / Various N

Key / Price

我想读取这两个文件并将它们连接起来，以便：

Key / Various1 / ... / Various N / Price 

对于第一个表的所有行。 我怎么做？我没有什么经验

我需要一个可以在脚本中进一步处理的表（散列？），或者一个可以读取并执行其余过程的新文件

任何帮助都将不胜感激

---

谢谢你的讽刺。。。我已经说过，我没有经验，我不知道她是如何工作的，这似乎是解决办法。。。我找到了这段代码并尝试使用它，但它不起作用：

我像这样加载第一个文件： $list{$file}{$system}{$master_file_name}{$symbol}=$price

第二点： $map{$file}=$charge

我也加入了他们： %组合=（%映射，%list）

foreach my$系统（键（%combined））
{
我的$n=0；
我的$i=0；
my$工作簿=电子表格：：WriteExcel->new（“system.xls”）；
my$worksheet=$workbook->添加工作表（“摘要未映射的主文件”）；
映射{$worksheet->write（$n，$i++，$）}（“列表”、“费用”、“系统”、“主文件”、“符号”、“价格”）；
$n++；$i=0；
foreach my$value（排序{$combined{$system}{$b}$combined{$system}{$a}}}键%{$combined{$system}）
{   
映射{$worksheet->write（$n，$i++，$\}（$value，$list{$system}{$value}）；
$n++；$i=0；
}

---

}我通常鼓励海报展示一些作品。这是一种真诚的表现，你已经尝试过，但有些东西不起作用，而不是要求我们为你做你的工作。因此，我不会给出一个例子。也就是说，我想告诉你。它可以使这项任务简单得多。

• 打开包含价格的文件
• 每次读取一行价格文件，并将数据放入键上的散列中
• 打开另一个文件
• 打开输出文件
• 对于另一个文件中的每一行
  • 在价格散列中查找匹配的价格
  • 将价格附加到现有记录的末尾
  • 将新记录写入输出文件

---

hhmm，你干了什么？