[Rio-pm] Recomendação de modulos para Log
Manoel Domingues Junior
manoel.domingues.junior em gmail.com
Quarta Março 5 08:05:00 PST 2014
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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20140305/5d16d2aa/attachment.html>
Mais detalhes sobre a lista de discussão Rio-pm