[Rio-pm] Recomendação de modulos para Log

[Stanislaw Pusep]

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
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20140305/79a12196/attachment.html>