version 1.2, 2001/11/05 02:57:21
|
version 1.3, 2001/11/14 13:19:36
|
Line 211 my %MEASURE=(
|
Line 211 my %MEASURE=(
|
'md5sum'=>( |
'md5sum'=>( |
sub { |
sub { |
my ($file1,$file2)=@_; |
my ($file1,$file2)=@_; |
my $rv1=`md5sum $file1`; chop $rv1; |
my ($rv1)=split(/ /,`md5sum $file1`); chop $rv1; |
my $rv2=`md5sum $file2`; chop $rv2; |
my ($rv2)=split(/ /,`md5sum $file2`); chop $rv2; |
return ($rv1,$rv2); |
return ($rv1,$rv2); |
} |
} |
), |
), |
Line 289 FLOP: foreach my $file (@files) {
|
Line 289 FLOP: foreach my $file (@files) {
|
my ($age1,$age2)=&{$MEASURE{'age'}}($file1,$file2); |
my ($age1,$age2)=&{$MEASURE{'age'}}($file1,$file2); |
$age=$age1-$age2; |
$age=$age1-$age2; |
my ($md5sum1,$md5sum2)=&{$MEASURE{'md5sum'}}($file1,$file2); |
my ($md5sum1,$md5sum2)=&{$MEASURE{'md5sum'}}($file1,$file2); |
if ($md5sum1 == $md5sum2) { |
if ($md5sum1 eq $md5sum2) { |
$md5sum='same'; |
$md5sum='same'; |
$size=0; |
$size=0; |
$lines=0; |
$lines=0; |
$diffs=0; |
$diffs=0; |
} |
} |
elsif ($md5sum1 != $md5sum2) { |
elsif ($md5sum1 ne $md5sum2) { |
$md5sum='different'; |
$md5sum='different'; |
my ($size1,$size2)=&{$MEASURE{'size'}}($file1,$file2); |
my ($size1,$size2)=&{$MEASURE{'size'}}($file1,$file2); |
$size=$size1-$size2; |
$size=$size1-$size2; |