Dica, Se for log do Linux (via syslog) Joga no pipe e faz a leitura.
http://mysfitt.net/tutorials/splunk_fifo.php http://www.softpanorama.info/Logs/Syslog/pipes_in_syslog.shtml Com Perl faz assim, depois coloca no Cron a cada 5 minutos Uso isso no Serviço de E-mail ============================================================================================ *#!/usr/bin/perl use strict; use IO::File; sub readLog { my $pat = '^(... .. ..:..:..) (\S+) \S+ ([a-zA-Z0-9]+): FILTER_LOGX: from=\<(.*?)\> to=\<(.*?)\> subject=\<(.*?)\> size=([0-9]+) hostip=([^ ]*) nrcpt=([0-9]+)'; my $fh; if (not sysopen($fh, "/var/log/smtp.pipe", O_RDONLY)) { print $nl . " ... erro ao abrir PIPE \n"; $nl = ""; return ''; } print $nl . " ... leitura de log iniciada \n"; $nl = ""; while (<$fh>) { chomp; if (m{$pat}) { $hora = $1; $server_name = $2; $msgid = $3; $from = lc $4; $to = lc $5; $subject = $6; $size = $7; $hostip = $8; $nrcpt = $9; print "$hora $server_name $msgid $from $to $subject $size $hostip $nrcpt\n"; } } close $fh; }* ============================================================================================ Em 16 de junho de 2013 22:40, Marcio - Google <[email protected]> escreveu: > Salve Mestres! > > Estou tentando fazer uma coisa que deve ser trivial, mas estou patinando. > > Quero monitorar um arquivo de log e procurar uma determinada cadeia de > caracteres apenas nas linhas que foram adicionadas após a última varredura. > > Hoje eu fico dentro de um loop abrindo e fechando o arquivo. A cada vez > que abro procuro a cadeia e se encontro mostro no terminal. > > Não estou satisfeito com a solução. Queria que o script "percebesse" toda > vez que fosse adicionado linha no final do arquivo e procurasse a cadeia > somente nas linhas que foram adicionadas. > > O que quero é +- o que o "tail -F arquivo.log" faz. > > Quando acho a cadeia em uma determinada linha, preciso imprimir cinco > linhas, sendo duas antes da linha que encontrei, a linha que encontrei e > duas linhas após. > > Qual a forma mais eficiente de fazer isso? > > [...]'s > > Marcio > > ======================================== > ########### Campanha Ajude o Marcio! ########### > http://sosmarcio.blogspot.com.br/ > http://www.vakinha.com.br/VaquinhaP.aspx?e=195793 > ======================================== > > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: [email protected] > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > > -- .............................................................................. *Com Deus todas as coisas são possíveis* ::: LinuxPro<http://www.linuxpro.com.br> *"A qualidade nunca se obtém por acaso; ela é sempre o resultado do esforço inteligente." (John Ruskin) "A mente que se abre a uma nova ideia jamais volta ao seu tamanho original" (Albert Einstein)*
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
