dispatchers = file screen file.class = Log::Dispatch::File file.min_level = debug file.filename = /tmp/hogger file.mode = append file.format = [%d] [%p] %m at %F lime %L%n screen.class = Log::Dispatch::Screen screen.min_level = info screen.stderr = 1 screen.format = %m
#!/usr/bin/perl use warnings; use strict; use Log::Dispatch::Config; Log::Dispatch::Config->configure('./log.conf'); my $dispatcher = Log::Dispatch::Config->instance(); $dispatcher->debug('でばっぐだお'); $dispatcher->info('いんふぉだお');