This short cod takes 4 minutes to run when reading a 19 Mb file. Same code and file takes 2 sec using AS perl 5.6.1
This runs on a AMD XP1900 500 Mb RAM, Win2K pro
I have tested it on a second machine AS perl 5.8.0 build 806, same result and the perl installation was made only for testing this, so no other modules or programs was installed that could interfere.
$time1 = time; print "opening\n"; open(ARKIV, "<Test2.txt") or die $!; print "slurping\n"; { while (<ARKIV>) { $whole_file .= $_; } } print "read" . length($whole_file). " bytes\n";
print "closing\n"; close ARKIV or die $!; $time2 = time - $time1; print "time = $time2 seconds.n"; undef $whole_file;
/Ulf
-------------------------------------------------------------------------------------------------------------- Give a man a torch and he burns for a day, set him on fire and he burns for the rest of his life. (Sorry couldn't resist). --------------------------------------------------------------------------------------------------------------
_______________________________________________ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
