Algorithm::Diff, diff()

用于文件比较。

实现类似unixcommand diff的功能。

#!/usr/bin/perl 

use Algorithm::Diff qw(diff); 

die("Usage: $0 file1 file2\n") if @ARGV != 2; 

my ($file1, $file2) = @ARGV; 
-T $file1 or die("$file1: binary\n"); 
-T $file2 or die("$file2: binary\n"); 

@f1 = `cat $file1 `; 
@f2 = `cat $file2 `; 

$diffs = diff(@f1, @f2); 

foreach $chunk (@$diffs) 
{ 
   foreach $line (@$chunk) 
   { 
      my ($sign, $lineno, $text) = @$line; 
       printf "$sign%d %s", $lineno+1, $text; 
   } 

   print "--------\n"; 
}