log4perl Sample windows

t4.pl

use Log::Log4perl;

Log::Log4perl::init(\q{
###############################################################################
#                              Log::Log4perl Conf                             #
###############################################################################
log4perl.logger.my_app           = DEBUG, LOG1
log4perl.appender.LOG1           = Log::Log4perl::Appender::File
log4perl.appender.LOG1.filename  = C:\\my_app.log
log4perl.appender.LOG1.mode      = append
log4perl.appender.LOG1.layout    = Log::Log4perl::Layout::PatternLayout
log4perl.appender.LOG1.layout.ConversionPattern = %d %p %m %n
 
# second logger points to the same file but with different level
log4perl.logger.my_other_app     = INFO, LOG2
log4perl.appender.LOG2           = Log::Log4perl::Appender::File
log4perl.appender.LOG2.filename  = C:\\my_other_app.log
log4perl.appender.LOG2.mode      = append
log4perl.appender.LOG2.layout    = Log::Log4perl::Layout::PatternLayout
log4perl.appender.LOG2.layout.ConversionPattern = %d %p %m %n
});

my $logger = Log::Log4perl->get_logger('my_app');
 
# sample logging statement
$logger->debug("this is an info log message");

$logger2 = Log::Log4perl->get_logger('my_other_app');

$logger2->info("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx");