Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

log4perl question

by smackdab (Pilgrim)
on Oct 18, 2003 at 07:30 UTC ( #300247=perlquestion: print w/replies, xml ) Need Help??
smackdab has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,

I just started to learn about and switch over to this cool logging system.

I have it logging to a text file and I got ::FileRotate to work - COOL!

BUT, if you start/stop the program a few times, the only easy way to see the most recent run is to go to the end of the file and then backtrack. And I output a lot of debug data...

The mess that I had written would save a backup of the last program run in a .bak file and then start logging in the original file...

Is there anyway to combine these ideas? Or should I just get used to it ;-)

I REALLY like to always open output.log and start reading from the top...seems like the most obvious way...


Replies are listed 'Best First'.
Re: log4perl question
by zengargoyle (Deacon) on Oct 18, 2003 at 08:08 UTC

    setup your logging as normal, before the first log message hijack the modules time_to_rotate function. log the first message, replace the original function.

    this has (at least) one bug: the first time it will create logfile then rotate it to logfile.1 then create a new logfile. otherwise it should work (assuming i put back the original function correctly).

    my $l = get_logger( 'base' ); *old = \&Log::Dispatch::FileRotate::time_to_rotate; *Log::Dispatch::FileRotate::time_to_rotate = sub { return wantarray ? +( 1, 1 ) : 1 }; $l->info('starting up and forcing rotation'); *Log::Dispatch::FileRotate::time_to_rotate = \&old; $l->info('more logging as usual');

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://300247]
Approved by sauoq
[jedikaiti]: :-)
[AnomalousMonk]: LanX: Of course the asteroid! There is/are no god(s).
erix suddenly wants to hear My Sweet Lord once more

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

    Results (327 votes). Check out past polls.