If I read 2 files into separate arrays, I *should* be able to compare the
arrays, and therefore see if the files are the same or not. SO why doesn't
this work?
#--- begin code
#!/usr/local/bin/perl -w
$f1 = "eghpoli1";
$f2 = "eghpoli2";
open(F1, "$f1") or die "cannot open $f1: $!\n";
open(F2, "$f2") or die "cannot open $f2: $!\n";
@Af1 = <F1>;
@Af2 = <F2>;
close(F1); close(F2);
if (@Af1 eq @Af2) { print "Files compare okay\n"; }
else { print "Files differ\n"; }
#
#--- end code
The files are truly different, with the last record of the file F2 shorter
than the last record of file F1. So why doesn't that work?!
Thanks,
Jeff
__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
