1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
| #! /usr/bin/perl -w
use Log::Log4perl qw(get_logger :levels);
use Log::Log4perl::Level;
use Log::Log4perl::Appender::Screen;
use Log::Log4perl::Layout::PatternLayout;
# Configuration du rootLogger principal
sub v_fConfigureLogger{
my $rootLogger = Log::Log4perl->get_logger();
# Config de la sortie standard
my $stdAppender = Log::Log4perl::Appender::Screen->new(
name => "Sortie standard",
stderr => 0,
);
my $stdLayout = Log::Log4perl::Layout::PatternLayout->new(
"[%d][%c][%p] %m");
$stdAppender->layout($stdLayout);
# Config de la sortie d'erreur
my $errAppender = Log::Log4perl::Appender::Screen->new(
name => "Sortie d'erreur",
stderr => 1,
);
my $errLayout = Log::Log4perl::Layout::PatternLayout->new(
"[%d][%c][%p](%F:%L) %m");
$errAppender->layout($errLayout);
$errAppender->threshold($ERROR);
# Link avec le root logger
$rootLogger->add_appender($stdAppender);
$rootLogger->add_appender($errAppender);
}
v_fConfigureLogger();
my $logger = Log::Log4perl->get_logger("Test");
$logger->debug("Test des bugs");
$logger->info("Test hein faux");
$logger->warn("Test war n'hing");
$logger->error("Test hé ror !");
$logger->fatal("Test Fatal ? c'est Vito !"); |
Partager