Ari,<br><br>Ou você usa a saida de erro que não tem buffer<br><br>- print "$ip $log\n";<br>+ print STDERR "$ip $log\n";<br><br>Ou você pode setar a variavel de flush para true:<br><br>$| = 1<br><br>Mais informações: <a href="http://www.kichwa.com/quik_ref/spec_variables.html">http://www.kichwa.com/quik_ref/spec_variables.html</a><br>
<br><div class="gmail_quote">2009/7/7 Ari Arantes <span dir="ltr"><<a href="mailto:ariarantes@gmail.com">ariarantes@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Valeu pelo ajuda, mas o problema é que não pode ter módulo adicional,<br>
pois o objetivo é rodar em qualquer servidor, sem necessariamente ter<br>
o File::Tail instalado.<br>
<br>
Esse "buffer" que o perl faz, é normal?<br>
<br>
[]s,<br>
<br>
Ari<br>
<br>
<br>
2009/7/7 Giuliani Deon Sanches <<a href="mailto:giulianisanches@gmail.com">giulianisanches@gmail.com</a>>:<br>
<div><div></div><div class="h5">> 2009/7/7 Lindolfo "Lorn" Rodrigues <<a href="http://lorn.br" target="_blank">lorn.br</a>@<a href="http://gmail.com" target="_blank">gmail.com</a>><br>
>><br>
>> Cara, use esse modulo do CPAN você terá mais controle:<br>
>><br>
>> <a href="http://search.cpan.org/%7Emgrabnar/File-Tail-0.99.3/Tail.pm" target="_blank">http://search.cpan.org/~mgrabnar/File-Tail-0.99.3/Tail.pm</a><br>
>><br>
>> Qualquer dúvida manda ai<br>
>><br>
>> 2009/7/7 Ari Arantes <<a href="mailto:ariarantes@gmail.com">ariarantes@gmail.com</a>><br>
>>><br>
>>> Pessoal,<br>
>>><br>
>>> Preciso escrever uma rotina para monitorar os acessos ao POP3. Fiz o seguinte:<br>
>>><br>
>>> #!/usr/bin/perl<br>
>>><br>
>>> #um exemplo do LOG:<br>
>>> #Jul 7 16:46:24 servidor1 pop3d: LOGIN,<br>
>>> user=<a href="mailto:usuario1@dominio1.com.br">usuario1@dominio1.com.br</a>, ip=[201.201.201.43], port=[4682]<br>
>>><br>
>>><br>
>>> $arqlog="/var/log/maillog";<br>
>>><br>
>>> open(LOG, "tail -F $arqlog | grep \"pop3d: LOGIN,\" |");<br>
>>> while ($log=<LOG>) {<br>
>>> chomp($log);<br>
>>> ($lixo, $ip, $lixo) = split('ip=\[', $log);<br>
>>> ($ip, $lixo) = split('\]', $ip);<br>
>>> print "$ip $log\n";<br>
>>> }<br>
>>><br>
>>> Esse é apenas o começo, depois terá conexão com base de dados, mas<br>
>>> tenho uma dúvida.<br>
>>><br>
>>> Se digito "tail -F /var/log/maillog | grep "pop3d: LOGIN,"" numa<br>
>>> sessão ssh, a tela rola muito rápido e de forma constante, agora se<br>
>>> rodo pelo perl acima, parece que ele "enche" um buffer e depois manda<br>
>>> de uma vez para tela, como se mandasse de tempos em tempos. Como<br>
>>> evitar esse "problema de buffer"?<br>
>>><br>
>>> Obrigado,<br>
>>><br>
>>> Ari<br>
>>> _______________________________________________<br>
>>> Cascavel-pm mailing list<br>
>>> <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
>>> <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
>><br>
>><br>
>><br>
>> --<br>
>> --Lindolfo "Lorn" Rodrigues<br>
>> <a href="http://www.slackwarezine.com.br" target="_blank">www.slackwarezine.com.br</a><br>
>> <a href="http://lornlab.org" target="_blank">http://lornlab.org</a><br>
>> <a href="http://sao-paulo.pm.org" target="_blank">http://sao-paulo.pm.org</a><br>
>> use Catalyst;<br>
>><br>
>> _______________________________________________<br>
>> Cascavel-pm mailing list<br>
>> <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
>> <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
><br>
> Cacilda... tava colando link aqui e aparece a resposta do Lor. Se<br>
> passa o dia inteiro com o cliente de e-mail aberto ? :P<br>
><br>
> --<br>
> <a href="http://twitter.com/giulianisanches" target="_blank">twitter.com/giulianisanches</a><br>
> <a href="http://giulianisanches.blogspot.com" target="_blank">giulianisanches.blogspot.com</a><br>
> _______________________________________________<br>
> Cascavel-pm mailing list<br>
> <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
> <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
><br>
_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>--Lindolfo "Lorn" Rodrigues<br><a href="http://www.slackwarezine.com.br">www.slackwarezine.com.br</a><br><a href="http://lornlab.org">http://lornlab.org</a><br>
<a href="http://sao-paulo.pm.org">http://sao-paulo.pm.org</a><br>use Catalyst;<br>