Log::Log4perl

iDog

It's very easy to use Log4perl.

First, create a config file:

log4perl.logger.Main=DEBUG, MyAppender
log4perl.appender.MyAppender=Log::Dispatch::File
log4perl.appender.MyAppender.filename=my.log
log4perl.appender.MyAppender.mode=append
log4perl.appender.MyAppender.layout=Log::Log4perl::Layout::PatternLayout
log4perl.appender.MyAppender.layout.ConversionPattern=%d %p> %F{1}:%L %M -%m%n

Then use it in perl code:

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

Log::Log4perl->init("my.cfg");

test(1);
test(2);

sub test {
    my ($arg) = @_;

    my $log = get_logger("Test");

    if($arg eq "1") {
        $log->info("This is a info");
    } else {
        $log->error("This is an error");
    }
}

Or it can also be used in following simple way:

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

Log::Log4perl->easy_init( { level   => $DEBUG,
                            file    => ">>user_admin.log" } );

INFO "This is an info.";
ERROR "This is an error.";

Log4perl FAQ