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

jiang1799

　　diff虽然也可以比较文件，但是工作中出现了两个文件中行的内容实际相同，但是顺序不同的情况（同一个文件中不会出现完全相同的行）。为了找出这些文件中的行差集，写了这么个脚本。
　　用法：diffSet fileA fileB
　　输出：
　　如果文件不同，在控制台输出只在fileA中出现的行的行数，及只在fileB中出现的行的行数，并将这些行分别输出到fileA.diff及fileB.diff两个文件中
　　如果文件相同，则输出两个文件相同的信息
　　file: diffSet
　　

• #!/usr/bin/perl -w
  
• use strict;
  
• 
  
• my ($fileA,$fileB) = @ARGV;
  
• 
  
• open A,'