Select Code to Download

Select or download this

 my $logfile = "/tmp/sybase_wrapper_xlog_$callerfile";
 Log::Log4perl::init(\ qq{
...
        log4perl.appender.A1.layout   = Log::Log4perl::Layout::Pattern
+Layout
        log4perl.appender.A1.layout.ConversionPattern=%d [%r] %P %C %p
+> %H:%F{1}:%L %M - %m%n
 });

Select or download this

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

     $log->debug("Debug message");
     $log->info("Info message");
     $log->error("1234 Error message");