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循環來解決這些事情，怎麼做呢。。。

還是前面那句話，這是你一個人的戰爭，自己解決，哈哈