Skeeve has asked for the wisdom of the Perl Monks concerning the following question:

I am working on a project that makes extensive use of Log4Perl.

Now I have to extend the program a bit so that the last message logged is copied into a file. So my idea was to make a new appender using Log::Dispatch::File with the mode "write".

Unfortunately Log::Dispatch::Write expects the filename to be defined at logger creation time and in my case, this filename is not known at that point and there is no official way to set the filename afterwards.

Now I'm searching for ideas of how to solve this. Copying Log::Dispatch::File and creating a Log::Dispatch::FileLazy (or something) might be an idea, but are there better ones?

s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

Replies are listed 'Best First'.
Re: Log::Log4perl / Log::Dispatch::File individual filenames. seeking advice.
by Anonymous Monk on Feb 12, 2009 at 10:41 UTC
    I don't think I'm understanding correctly, is this what you want? 
    my $log = ...;

...

# Define a file appender when you need it
my $file_appender = Log::Log4perl::Appender->new(
                      "Log::Log4perl::Appender::File",
                      name      => "filelog",
                      filename  => "/tmp/my.log")


$file_appender->log(message => "Log me\n");
$file_appender->file_switch('/tmp/mynew.log');

$log->add_appender($file_appender);
$log->log($TRACE, "...");

    [download]
    Or maybe do something with a Log::Log4perl::Appender::Buffer?
[reply]
[d/l]

      Looks promising! Thanks, Anonymous One!

      Even better! There is a create_at_logtime option, which does exactly what I need, I guess.

      s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
      +.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e
[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom