一个用于比较两个文件行中不同的Perl脚本

diff虽然也可以比较文件，但是工作中出现了两个文件中行的内容实际相同，但是顺序不同的情况（同一个文件中不会出现完全相同的行）。为了找出这些文件中的行差集，写了这么个脚本。

用法：diffSet fileA fileB

输出：

如果文件不同，在控制台输出只在fileA中出现的行的行数，及只在fileB中出现的行的行数，并将这些行分别输出到fileA.diff及fileB.diff两个文件中

如果文件相同，则输出两个文件相同的信息

file: diffSet

?

 
 

#!/usr/bin/perl?-w?
  
  
use?strict;?
  
  
?
  
  
my?($fileA,$fileB)?=?@ARGV;?
  
  
?
  
  
open?A,'<',$fileA?or?die?"Unable?to?open?file:$fileA:$!";?
  
  
my?%ta;?
  
  
my?$i;??
  
  
while(<A>){?
  
  
??chomp;?
  
  
??$ta{$_}?=?++$i;??
  
  
}?
  
  
?
  
  
close?A;?
  
  
?
  
  
open?B,$fileB?or?die?"Unable?to?open?file:$fileB:$!";?
  
  
my?@B;??
  
  
while(<B>){?
  
  
????chomp;?
  
  
????unless?(defined?$ta{$_}){?
  
  
????????push?@B,$_;?
  
  
????}else{?
  
  
????????$ta{$_}?=?0;?
  
  
????}????
  
  
}?
  
  
close?B;?
  
  
?
  
  
#?Output?diff?to?different?files?respectively?
  
  
?
  
  
open?DIFF_A,?">$fileA.diff"?or?die?"Unable?to?create?diff?file?for?$fileA:$!";?
  
  
my?$countA;?
  
  
print?"Remain?in?files?$fileAn";?
  
  
my?%tt?=?reverse?%ta;?
  
  
?
  
  
foreach?(keys?%tt)?{?
  
  
????$countA?+=?$_>0??print?DIFF_A?$tt{$_}."n":0;?
  
  
}?
  
  
?
  
  
print?"$countA?linesn";?
  
  
?
  
  
close?DIFF_A;?
  
  
?
  
  
open?DIFF_B,?">$fileB.diff"?or?die?"Unable?to?create?diff?file?for?$fileB:$!";?
  
  
my?$countB?=?scalar?@B;??
  
  
print?DIFF_B?$_."n"?foreach?@B;??
  
  
?
  
  
if?($countA?==?0?and?$countB?==0?){?
  
  
????print?STDOUT?"The?two?files?are?identicaln";?
  
  
}?
  
  
?
  
  
close?DIFF_B;?