Help for this page

Select Code to Download


  1. or download this
    log4perl.rootLogger=INFO, LOGFILE
  2. or download this
    log4perl.rootLogger=DEBUG, LOGFILE
  3. or download this
    use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init( { level   => $debug ? $DEBUG : $INFO,
                            file    => ">>$log_file",
                            layout  => '[%-5p] [%d{yy-MM-dd hh:mm:ss.S
+SSSSS}][%r] %m - line: %L%n' } );
  4. or download this
    INFO( 'Start' );

...
#LOGDIE( 'No destination directory defined!' ) unless $dest_dir;

DEBUG( 'Dir: ', $dest_dir ) if $debug;