使用perl取出两个文件中的相同数据，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循环处理的perl程序，作为锻炼自己的perl能力吧。