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
