<div dir="ltr">Log4perl ainda é a melhor opção.</div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-03-05 22:13 GMT-03:00 breno <span dir="ltr"><<a href="mailto:oainikusama@gmail.com" target="_blank">oainikusama@gmail.com</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Manoel,<br>
<br>
também recomendo o Log4perl, e para apps Mojolicious vc pode usar o<br>
<a href="https://metacpan.org/pod/MojoX::Log::Log4perl" target="_blank">https://metacpan.org/pod/MojoX::Log::Log4perl</a> =]<br>
<br>
[]s<br>
<br>
-b<br>
<br>
2014-03-05 11:48 GMT-05:00 Solli Honorio <<a href="mailto:shonorio@gmail.com">shonorio@gmail.com</a>>:<br>
<div class="HOEnZb"><div class="h5">> Manoel,<br>
><br>
> Eu utilizo o Log4Perl e gosto dele por ser independente e permitir expandir<br>
> a saida para quase tudo que existe hj, e se não existir é só fazer um<br>
> plugin.<br>
><br>
> Não recomendo fazer um sistema de log proprietário .<br>
><br>
> Se eu não estiver enganado, o Log::Any é uma interface/bind para vários<br>
> tipos de Log.<br>
><br>
> Solli Honorio<br>
><br>
><br>
><br>
> Em 5 de março de 2014 13:05, Manoel Domingues Junior<br>
> <<a href="mailto:manoel.domingues.junior@gmail.com">manoel.domingues.junior@gmail.com</a>> escreveu:<br>
>><br>
>> Olá pessoal,<br>
>><br>
>> Estou fazendo uns scripts(na verdade é uma API com Mojolicious::Lite) aqui<br>
>> e implementei uma função de log usando um conjunto de Net::Syslog com<br>
>> Sys::Syslog para fazer o log do script.<br>
>><br>
>> <a href="https://gist.github.com/mdjunior/9369937" target="_blank">https://gist.github.com/mdjunior/9369937</a><br>
>><br>
>><br>
>><br>
>> sub log_wrapper {<br>
>><br>
>>     my $log = shift;<br>
>><br>
>>     my $priority = shift;<br>
>><br>
>><br>
>>     if ( ! defined $priority ) {<br>
>><br>
>><br>
>><br>
>>      $priority = 'debug';<br>
>><br>
>>     }<br>
>><br>
>>     if ( $ENV{APP_LOG} eq 'LOCAL' ) {<br>
>><br>
>><br>
>><br>
>>         openlog( $ENV{APP_NAME}, 'ndelay,pid', 'LOG_DAEMON' );<br>
>><br>
>><br>
>><br>
>>         syslog( $priority, $log );<br>
>><br>
>>         closelog();<br>
>>     } elsif ($ENV{APP_LOG} eq 'NET') {<br>
>><br>
>><br>
>><br>
>>         my $log_net = Net::Syslog->new(<br>
>><br>
>><br>
>><br>
>>                                 Name => $ENV{APP_NAME},<br>
>><br>
>><br>
>><br>
>>                                 Facility => 'local7',<br>
>><br>
>>                                 Priority => $priority,<br>
>><br>
>>                                 SyslogPort => $ENV{APP_SYSLOG_PORT},<br>
>><br>
>><br>
>><br>
>>                                 SyslogHost => $ENV{APP_SYSLOG_HOST},<br>
>><br>
>><br>
>><br>
>>                                 );<br>
>>         $log_net->send($log);<br>
>><br>
>><br>
>><br>
>>     }<br>
>>     return;<br>
>><br>
>> }<br>
>><br>
>> Pesquisando na internet vi que muita gente comenta sobre o Log::Log4perl e<br>
>> o Log::Any mas não sei bem qual desses (ou outros) é o ideal ou o padrão de<br>
>> uso.<br>
>><br>
>> No caso, toda a configuração do meu script fica em variáveis de ambiente.<br>
>> O script possui uma trilha de auditoria que é feita usando os logs, logo ele<br>
>> gera eventos em grande quantidade em diferentes níveis (debug, info e<br>
>> error).<br>
>><br>
>> Alguma recomendação?<br>
>><br>
>> Abraços,<br>
>> --<br>
>> --<br>
>> Manoel Domingues Junior<br>
>> "Coletar dados é o primeiro passo para a sabedoria, mas compartilhar dados<br>
>> é o primeiro passo para a comunidade."<br>
>> IBM - Prodigy Linux<br>
>><br>
>> _______________________________________________<br>
>> Rio-pm mailing list<br>
>> <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
>> <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
><br>
><br>
><br>
><br>
> --<br>
> "o animal satisfeito dorme". - Guimarães Rosa<br>
><br>
> _______________________________________________<br>
> Rio-pm mailing list<br>
> <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
> <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br>André Garcia Carneiro<br>Software Engineer<br>(11)982907780
</div>