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

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!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://449731]
[marto]: a security event in the building, police dogs and and so on...
[Discipulus]: a test I hope..
[marto]: just a security event, they have people from the 'corporate' security, external security companies, the police etc
[marto]: perhaps I'll get the time to pin down some of the corporate security people, since they refuse to answer any questions
[marto]: for our system, the windows pre production domains alone require 490 accounts :/

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (7)
As of 2017-11-22 10:25 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (317 votes). Check out past polls.