i wish to compare 1 file with multiple files (in a folder)
@allfile - >> the paths for all files in a folder
but once i run the code below, it keep loop at print "comparing $masterfile with $file1";
if i delete the compare function it works well.
what's wrong? Thanks
i wish to compare 1 file with multiple files (in a folder)
@allfile - >> the paths for all files in a folder
but once i run the code below, it keep loop at print "comparing $masterfile with $file1";
if i delete the compare function it works well.
what's wrong? Thanks
Expand|Select|Wrap|Line Numbers
use File::Compare;
foreach $file (@allfile) {
my $file1=$file;
$masterfile='c:\\ts\\compare1.pl';
print "comparing $masterfile with $file1";
if (compare("$masterfile","$file1") == 0) {
print "They're equal\n";
} else {
print "They're not equal\n";
}
}
Here is the code a bit cleaned up. It looks like it should work OK.
Expand|Select|Wrap|Line Numbers
use File::Compare;
my $masterfile = 'c:/ts/compare1.pl'; # <-- forward slashes OK with windows
i check with open(file, $file)|| or die $;
it's working fine. meaning there's no broken link for the path.
beside using compare function, is there any module tat i can use?
Please guide.
