[Perl-unix-users] Large textfiles

[pasev]

Hello all!

I have problems with comparing two big text files with eachother (~4Mb). 
the script reads (or tries to read) both files into @tables and compare 
them line by line after that, but no result is being shown. Script 
searches for new productcodes ($Urivi[3]).

Is there any limit to @table size or what could be wrong?

-------------------------------------
//source:
foreach $tmp (@Uusi) {
 $Loytyi = 0;
 @Urivi = split "\t", $tmp;
   for ($i=0; $i<=$Vanhankoko-1; ++$i) {
     @Vrivi = split "\t", $Vanha[$i];
     if ($Urivi[3] eq $Vrivi[3]) {
       #print "Tuotekoodit täsmää\n";
       $Loytyi = 1;
       $i = $Vanhankoko;
     }
   }  #end for
 if ($Loytyi == 0) {
   #print "$Urivi[4] $Urivi[3]\n";
   $temppi = $Uudettuotteet;
   $Uudettuotteet = $temppi."=".$Urivi[4]."_".$Urivi[3];
   $Loytyi = 0;
 }
}
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs