$ cat 672543.pl use warnings; use strict; use Log::Log4perl; my $conf = q( log4perl.category.my_logger = INFO, ScreenAppender log4perl.appender.ScreenAppender = Log::Log4perl::Appender:: +Screen log4perl.appender.ScreenAppender.stderr = 1 log4perl.appender.ScreenAppender.layout = PatternLayout log4perl.appender.ScreenAppender.layout.ConversionPattern=[%p] %d %m +%n ); Log::Log4perl::init( \$conf ); my $log = Log::Log4perl::->get_logger(q(my_logger)); $log->debug(q{one}); $log->info(q{two}); $log->warn(q{three}); $log->error(q{four}); $log->fatal(q{five}); __END__ $ perl -w 672543.pl [INFO] 2008/03/06 21:56:07 two [WARN] 2008/03/06 21:56:07 three [ERROR] 2008/03/06 21:56:07 four [FATAL] 2008/03/06 21:56:07 five $
In reply to Re: How can I timestamp each printed statement?
by andreas1234567
in thread How can I timestamp each printed statement?
by johnnybongo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |