1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| #!/usr/bin/perl
use strict; use warnings;
my ($filename1, $filename2) = @ARGV;
open my($file1), '<', $filename1
or die "$filename1 : $!\n";
open my($file2), '<', $filename2
or die "$filename2 : $!\n";
for (;;) {
my $line1 = <$file1>;
my $line2 = <$file2>;
if( not (defined $line1 or defined $line2) ) {
print "Fichiers identiques !\n";
exit(0);
} elsif ($line1 ne $line2) {
print <<"ENDOFREPORT";
Les fichiers diffèrent à partir de la ligne $. :
$filename1 :
$line1
$filename2 :
$line2
ENDOFREPORT
exit(0);
}
} |
Partager