perl比较文件数据是否相同（Algorithm::Diff模块）

当你的领导笑嘻嘻的对你说到：亲爱的，我这有2个文件，里面有许多数据是相同的，我想把相同的数据取出来的，光荣的任务就交给你了啊，嘻嘻。  然后就离开了你的战场（办公桌）。毕竟这只是你一个人的战争啊。来吧，我们解决这个小问题吧，让我们用比较Perl的感觉来吧 ，不是 呸儿（谐音）啊。

   需要的模块：

Algorithm::Diff

可能会在装一些其他需要支持的模块

 

#!/usr/bin/perl  -w
use Algorithm::Diff qw(LCS);
open OUT,"1.txt" or die "$!";
open OUT1,"2.txt" or die "$!";
my @seq1=<OUT>;  #读取文件的数据到数字
my @seq2=<OUT1>;

@lcs = LCS( /@seq1, /@seq2);  将2个数组进行比较，即比较每行数据是否一致，一致则放入 @lcs中
print  @lcs;  将获取相同的数据输出
close OUT;
close OUT1;

 

   这个程序将文件以数组的形式进行的处理，会占用到大量的资源，所以各位战友们。可以利用 while循环来解决这些事情，怎么做呢。。。

还是前面那句话，这是你一个人的战争，自己解决，哈哈