$log->info("Data directory: %s", $options->{'dir'}); #### my $spr = sub { my $fmt = shift; return sprintf $fmt, @_; }; #### my $conf = qq! log4perl.rootLogger = TRACE, DBAppndr log4perl.appender.DBAppndr = Log::Log4perl::Appender::DBI log4perl.appender.DBAppndr.datasource = $dsn log4perl.appender.DBAppndr.username = $db_user log4perl.appender.DBAppndr.password = $db_passwd log4perl.appender.DBAppndr.sql = INSERT INTO log (level, timestamp, method, line, message) VALUES (?,?,?,?,?) log4perl.appender.DBAppndr.params.1 = %p log4perl.appender.DBAppndr.params.2 = %d{yyyy-MM-dd HH:mm:ss.SSS} log4perl.appender.DBAppndr.params.3 = %M log4perl.appender.DBAppndr.params.4 = %L log4perl.appender.DBAppndr.usePreparedStmt = 1 log4perl.appender.DBAppndr.layout = Log::Log4perl::Layout::NoopLayout log4perl.appender.DBAppndr.warp_message = $spr !; Log::Log4perl::init( \$conf );