Eu fiz assim:
--
next LOG unless defined $message;
if (!$message)
{
sleep(1);
}
else
{
chomp $message;
chop $message;
$message = substr $message,1;
my($dt,$id,$ip,$url,$what,$how,$size,$a,$why,$c,$d,$type,$f,$filter)=split
/,/,$message;
Como disse, peguei esse script já pronto no site do dansguardian.
De programação eu conheço muito pouco.
Zhu Sha Zang, sem querer ser folgado, mas você não teria uma opção simples
pra ficar no lugar de while (1) aí?
De qualquer forma obrigado, vou pesquisar sobre pooling Perl.
Valeu.
Mas qual o proposito desse script ?
Pegar o que vai sendo gravado no var/log/dansguardian/access.log e
inserir no mysql ??
Se for isso, o problema é que vc fica num loop e lendo o arquivo
Pq nao faz o seguinte, usa o crontab, pra executar esse script a cada
minuto, aí o script
le o log,
3 matches
Mail list logo