Odd number of elements in hash assignment at /opt/perl/lib/site_perl/5.16.3/Log/Log4perl/Appender/Screen.pm line 36.
Use of uninitialized value in print at /opt/perl/lib/site_perl/5.16.3/Log/Log4perl/Appender/Screen.pm line 41.
Odd number of elements in hash assignment at /opt/perl/lib/site_perl/5.16.3/Log/Log4perl/Appender/Screen.pm line 36.
Use of uninitialized value in print at /opt/perl/lib/site_perl/5.16.3/Log/Log4perl/Appender/Screen.pm line 41.
####
32
33 ##################################################
34 sub log {
35 ##################################################
36 my($self, %params) = @_;
37
38 if($self->{stderr}) {
39 print STDERR $params{message};
40 } else {
41 print $params{message};
42 }
43 }
####
use strict;
use warnings;
use Log::Log4perl;
use Data::Dumper;
my $logconfig = <init(\$logconfig);
my $logger = Log::Log4perl->get_logger("test");
my $appender = Log::Log4perl->appender_by_name("SCREENOUT");
print Dumper($appender)."\n";
$logger->add_appender($appender);
print Dumper($logger)."\n";
$logger->info("Test info message");
$logger->debug("Test debug message");
$logger->info("Test asdf123");
$logger->debug("Test debug adfklgnfgnsldfijgl");
####
[2017-11-28 15:58:59.126326] Test info message
[2017-11-28 15:58:59.129663] Test asdf123