Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^2: Rotating output from the Perl debugger

by Booger (Pilgrim)
on Apr 20, 2005 at 19:22 UTC ( #449731=note: print w/ replies, xml ) Need Help??


in reply to Re: Rotating output from the Perl debugger
in thread Rotating output from the Perl debugger

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!


Comment on Re^2: Rotating output from the Perl debugger
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2015-07-01 23:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (25 votes), past polls