#!/usr/bin/perl
use strict;
use warnings;

use Log::Log4perl;
use Data::Dumper;

Log::Log4perl::init('log4perl.conf');


my $logger = Log::Log4perl->get_logger();

$logger->info("Test before");

my $appender = Log::Log4perl::Appender::String->new("name" => 'string_appender');
my $pattern = Log::Log4perl::Layout::PatternLayout->new("[%p] %m%n");
$appender->layout($pattern);
$logger->add_appender($appender);

$logger->info("Test after");

print("APPENDER STRING: " . $appender->string() . "\n");
print("APPENDERS: " . Dumper(Log::Log4perl::appenders()) . "\n");

##</code><code>##

log4perl.rootLogger=INFO, logfile, stdout

log4perl.appender.logfile=Log::Log4perl::Appender::File
log4perl.appender.logfile.filename=example.log
log4perl.appender.logfile.mode=append
log4perl.appender.logfile.layout=PatternLayout
log4perl.appender.logfile.layout.ConversionPattern=[%p] %m%n

log4perl.appender.stdout=Log::Log4perl::Appender::Screen
log4perl.appender.stdout.stderr=0
log4perl.appender.stdout.layout=PatternLayout
log4perl.appender.stdout.layout.ConversionPattern=[%p] %m%n

##</code><code>##

>perl test.pl
[INFO] Test before
[INFO] Test after
APPENDER STRING:
APPENDERS: $VAR1 = <long dump of the three appenders: stdout, logfile, and string_appender>