Re: [log4perl-devel] Log4perl and catching unhandle exceptions but not using 'easy' mode

[Richard B. <ri...@at...>]

Hi Mike

Firstly thanks for the help your help so far..

I think I am almost seeing the light, my only question now is actually
outputting the log text, below is my test script, could you outline what
I should be putting for the line :-

get_logger()->info(@_) in the PRINT method of package Trapper;

Currently the whole script gets in to a recursive mess, the file
logging.conf contains a simple root logger which outputs to the screen,
I have attached it but I suspect it is not of any use.



#####################################################
#!/usr/bin/perl -w
use strict;

use Log::Log4perl qw( get_logger :levels );
use Log::Log4perl::Level;

main();

sub main {
    
    Log::Log4perl->init_once('logging.conf');
    
    my $log = Log::Log4perl->get_logger('');
    tie *STDERR, "Trapper";
    $log->info("This is an informational");
    $log->error("This is an error");
    IgnorantModule::some_method();

}


########################################
package IgnorantModule;
########################################

sub some_method {
    print STDERR "Parbleu! An error!\n";
}

1;


########################################
package Trapper;
########################################

use Log::Log4perl qw( get_logger :levels );

sub TIEHANDLE {
    my $class = shift;
    bless [], $class;
}

sub PRINT {
    my $self = shift;
    
    $Log::Log4perl::caller_depth++;
    get_logger()->info(@_);
    $Log::Log4perl::caller_depth--;
}

1; 
#####################################################



Thanks

Richard


> -----Original Message-----
> From: Mike Schilli [mailto:m...@pe...] 
> Sent: 20 May 2009 22:25
> To: Richard Burton
> Cc: log...@li...
> Subject: Re: [log4perl-devel] Log4perl and catching unhandle 
> exceptions but not using 'easy' mode
> 
> On Wed, 20 May 2009, Richard Burton wrote:
> 
> > I can catch this using stealth as loggers outlined in
> > 
> http://search.cpan.org/~mschilli/Log-Log4perl/lib/Log/Log4perl
> /FAQ.pm#So
> > 
> me_module_prints_messages_to_STDERR._How_can_I_funnel_them_to_
> Log::Log4p
> > erl?
> >
> > but the example assumes you are using the "easy" 
> configuration method.
> 
> Actually, this will work unmodified if you're using a 
> configuration file
> instead.
> 
> You're probably talking about the DEBUG(...) macro used in the code
> example, which comes with :easy, but this is really unrelated to
> easy_init() and can be used with init($conf_file) as well.
> If you don't want the stealth loggers, get a logger and send 
> your debug
> message via
> 
>      use Log::Log4perl qw(get_logger);
> 
>      get_logger()->debug("my debug message");
> 
> instead.
> 
> > The question I have is can I do a similar thing but use an external
> > configuration file for log4perl? I have tried but failed so would
> > appreciate any guidance?
> 
> This should work, what was the problem/error message you encountered?
> 
> -- Mike
> 
> Mike Schilli
> m...@pe...
>