Dear all:
I try to write a perl to compare whether the line numbers of 2 files
is equivalent.
Below is my source code:
tie my @src_file1,'Tie::File', $src_file1, mode => O_RDWR ,autochomp =>
1 or die "cannot open file $!";
tie my @src_file2,'Tie::File', $src_file2, mode => O_RDWR ,autochomp =>
1 or die "cannot open file $!";
if($#src_file1 != $#src_file2)
{
printf "The 2 files line numbers are different\n";
exit;
}
but I find the time will be quite long when these 2 files are large,
each about 12MB.
I there quicker way to meet the same requirement?
appreciate your help,
miloody
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
