如何使用Perl逐个单元地比较两个Excel文件并打印任何差异

Question

例如

文件1：

Column x:1, 2, 6,…. 
Column y: 21, 2, 5.. 

文件2：

Column x: 1, 2, 6…. 
Column y: 21, 2, 1…  

输出：

mismatch in column y, 3rd row

Answer 1

没有为你编写整个脚本，基本上，你想要做的是：

• 打开两个文件。
• 遍历每个单元格并将其与另一个文件中的单元格进行比较。
• 如果不匹配，请将该单元格编号推送到数组。
• 当文件读完时，你要么说如果数组是空的没有不匹配，要么逐行打印数组的每个元素。

我鼓励您自己尝试，因为这是最好的学习方式。如果您有任何问题，我们非常乐意回答。

为了帮助您入门，这是打开文件的命令：

open(my $fh1, "<", "excel_file_1.xls") or die "Cannot open excel_file_1.xls: $!";
open(my $fh2, "<", "excel_file_2.xls") or die "Cannot open excel_file_2.xls: $!";