Hi,
We are doing file operations on large files(more
than 5GB).....
basically reading the file and validatiing the each
record in in the file.....
we used Tie::File
It took 35 min to read and count the number of lines
in file of 8millions (500MB)
following is the script....
Does anybody have any idea is there any good perl
modules available for handling large files.......
Thanx
-Madhu
-----
#!C:\Perl\bin\perl -w
use Tie::File;
$IN_FILE = 'H:\Madhu\madhudb2.txt';
$time1 = &my_time();
print "Before tieing : $time1\n";
tie @file_array, 'Tie::File', $IN_FILE or die "opening
file : $IN_FILE $!\n";
$time2 = &my_time();
print "Before tieing : $time2\n";
$time3 = &my_time();
print "Before array count : $time3\n";
$n_recs = @file_array;
print "records in array is : $n_recs\n";
$time4 = &my_time();
print "After array count : $time4\n";
untie @file_array;
sub my_time()
{
my $time= time ;
$daytime = localtime($time) ;
return $daytime ;
}
--------
__________________________________________________
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]
