Re: limit output filesize


"be consistent"
	PerlMonks

Re: limit output filesize

by QM (Parson)

on Jul 08, 2005 at 18:58 UTC ( [id://473541]=note: print w/replies, xml )

Need Help??

in reply to limit output filesize

Something like this?

my $output_file = 'output_0000';
my $file_size = 0;
open(STDOUT,>,$output_file)
  or die "Error opening $output_file for writing, ";
while (my $line = <>)
{
   do_something($line);
   if ($file_size > 50000)
   {
      close STDOUT
        or die "Error closing $output_file, ";
      $output_file++; # magic increment
      open(STDOUT,>,$output_file)
        or die "Error opening $output_file for writing, ";
      $file_size = 0;
   }
   print $line;
}
[download]

-QM
--
Quantum Mechanics: The dreams stuff is made of