compare

来自「编译工具」· 代码 · 共 28 行

#!/usr/bin/perl

# Compares files with diff, ignoring additions or subtractions of blank lines
#

die("compare <file1> <file2>") unless ($#ARGV == 1);
    
my $temp = ".tmp";    
my $filter = "/home/djs/src/omni/cvs/src/omniidl/python/be/cxx/tools/filter";

my $a = $ARGV[0];
my $b = $ARGV[1];

# Preprocess input files by running an external filter
system("cat $a | $filter > $a$temp");
system("cat $b | $filter > $b$temp");

@changes = `diff --ignore-all-space --ignore-space-change --ignore-blank-lines $a$temp $b$temp`;

while (@changes){
    $line = shift @changes;
    if ($line =~ /^(>|<)\s*\S+\s*/){
       print "Lots of differences!";
       exit(1);
    }
}
exit(0);