http://mojolicio.us/perldoc/Mojo/Log
среда, 5 марта 2014 г. пользователь Manoel Domingues Junior написал: > Olá pessoal, > > Estou fazendo uns scripts(na verdade é uma API com Mojolicious::Lite) aqui > e implementei uma função de log usando um conjunto de Net::Syslog com > Sys::Syslog para fazer o log do script. > > https://gist.github.com/mdjunior/9369937 > > sub log_wrapper { > > > my $log = shift; > > my $priority = shift; > > > if ( ! defined $priority ) { > > $priority = 'debug'; > > } > > if ( $ENV{APP_LOG} eq 'LOCAL' ) { > > openlog( $ENV{APP_NAME}, 'ndelay,pid', 'LOG_DAEMON' ); > > syslog( $priority, $log ); > > closelog(); > } elsif ($ENV{APP_LOG} eq 'NET') { > > my $log_net = Net::Syslog->new( > > Name => $ENV{APP_NAME}, > > Facility => 'local7', > > Priority => $priority, > > SyslogPort => $ENV{APP_SYSLOG_PORT}, > > SyslogHost => $ENV{APP_SYSLOG_HOST}, > > ); > $log_net->send($log); > > } > return; > > } > > Pesquisando na internet vi que muita gente comenta sobre o Log::Log4perl e > o Log::Any mas não sei bem qual desses (ou outros) é o ideal ou o padrão de > uso. > > No caso, toda a configuração do meu script fica em variáveis de ambiente. > O script possui uma trilha de auditoria que é feita usando os logs, logo > ele gera eventos em grande quantidade em diferentes níveis (debug, info e > error). > > Alguma recomendação? > > Abraços, > -- > -- > Manoel Domingues Junior > "Coletar dados é o primeiro passo para a sabedoria, mas compartilhar dados > é o primeiro passo para a comunidade." > IBM - Prodigy Linux >
_______________________________________________ Rio-pm mailing list [email protected] http://mail.pm.org/mailman/listinfo/rio-pm
