what's wrong with my loop?

MyMarlboro

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

Jul 5 '08 #1

KevinADC

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

1. use File::Compare;
2. foreach $file (@allfile) {
3. my $file1=$file;
4. $masterfile='c:\\ts\\compare1.pl';
5.             print "comparing $masterfile with $file1";
6.     if (compare("$masterfile","$file1") == 0) {
7.         print "They're equal\n";
8.     } else {
9.          print "They're not equal\n";
10.              }
11.  
12. }

Here is the code a bit cleaned up. It looks like it should work OK.

run the code and post what this line prints:

Jul 5 '08 #2

MyMarlboro

It's still the same where it's pause at the code of compare.
comparing c:/ts/compare1.pl with c:\ts\aaa.pl

Once i remove the compare function, it's become ok.

should be somethingwrong with the compare function.

i noticed that whenever i use i can print the path correctly meaning got double '\\'

while if i use the it all change to single '\'

Jul 6 '08 #3

MyMarlboro

comparing c:/ts/compare1.pl with c:\ts\aaa.pl

i tried to change the "\" to "/"... but the code stil failed (keep looping when comapring the first file ) at the compare function.

help. thanks

Jul 6 '08 #4

MyMarlboro

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.

Jul 6 '08 #5

KevinADC

I don't know what the problem is or if there is another module you can use.

Jul 6 '08 #6

MyMarlboro

It's ok. thanks for your time.

Jul 7 '08 #7