print can also be an expensive process. Instead of doing a print in the for loop save the resulting line to a $variable and after the loop is completed print the string to the file.
my $output; while (<report>) { $output .= $line; } print FILE $ouput;
In reply to Re^2: ?? Blazes under Linux; crawls under XP & Win2K...
by Anonymous Monk
in thread ?? Blazes under Linux; crawls under XP & Win2K...
by WordWeaver
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |