一个用于比较两个文件行中不同的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,'
页:
[1]