Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Rotating output from the Perl debugger

by tall_man (Parson)
on Apr 20, 2005 at 18:58 UTC ( #449725=note: print w/ replies, xml ) Need Help??


in reply to Rotating output from the Perl debugger

I would suggest using Log::Dispatch::FileRotate for this. You can use LineInfo to direct the logging output to a pipe, running a script like this (not tested):

use strict; use Log::Dispatch::FileRotate; my $file = Log::Dispatch::FileRotate->new( name => 'file1', min_level => 'info', filename => 'Somefile.log', mode => 'append' , TZ => '0:0:0:0:2:00:0', DatePattern => 'yyyy-dd-HH', ); while (<>) { $file->log( level => 'info', message => $_); }


Comment on Re: Rotating output from the Perl debugger
Download Code
Re^2: Rotating output from the Perl debugger
by Booger (Pilgrim) on Apr 20, 2005 at 19:22 UTC
    Thanks, tall_man!

    I actually did something similar to your suggestion (not having thought to look at the node to see if anyone had posted something interesting -- duh)

    I did this:

    #!/usr/bin/perl -w use warnings; use strict; use constant SIZEOF_100MB => 104857600; $| = 1; my $filename = 'debugfile'; while (<>) { open LOGFILE, ">>$filename" || die "Unable to open '$filename': $!"; print LOGFILE $_; close LOGFILE; my @stats = stat($filename); my $bsize = $stats[7]; if ( $bsize > SIZEOF_100MB ) { my @localtime = split / +|:/, localtime(); shift @localtime; pop @localtime; my $new = "${filename}_" . join '_', @localtime; rename $filename, $new; system("gzip $new"); } } 1;

    It's probably not as elegant as your solution (I wasted more lines) but it does work.

    Thanks again!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://449725]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (7)
As of 2014-12-25 15:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (160 votes), past polls