[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