in reply to Re^3: Performance Trap - Opening/Closing Files Inside a Loop
in thread Performance Trap - Opening/Closing Files Inside a Loop

If that is the case - combine the two methods.
  1. Buffer the strings up to say 10k or more.
  2. Once they hit that size - look for an open, or cache a new filehandle.
  3. Print out the buffered string for the file and clear the buffer.
  4. Finish off by flushing remaining buffers.
my @a=qw(random brilliant braindead); print $a[rand(@a)];
  • Comment on Re^4: Performance Trap - Opening/Closing Files Inside a Loop

In Section Seekers of Perl Wisdom