[FUGSPBR] 1/2 OFF: perl & arquivo de log

[Paulo Henrique Coimbra Vieira]

Gente o problema eh o seguinte: 
Esse script anexo neste email, eh o que estou fazendo, meio q na raça, pois to aprendendo perl nele, por isso preciso de ajuda. Esse script lê um arquivo de log do radius (288Mb) e gera registros em uma tabela MySQL. Esse log eh de 2 anos pra cá, pois quando entrei na empresa o responsavel anterior nao utilizava o logrotate. 
O problemao eh o seguinte: Quando o arquivo de log eh pequeno (ate uns 60Mb) esse script funciona blz, perfeito... Mas quando rodo ele com o arquivo de 288 Mb, o processo eh morto por falta de memória.
Por favor, analisem o script e vejam o que pode ser melhorado, se tem alguma forma de a medida que o "foreach" ir lendo o arquivo de log, ir liberando memoria, alguma coisa assim..

Agradeço a todos..


sds,
================================
Paulo Henrique Coimbra Vieira
Connect - Serviço de Acesso à Internet
Depto. Redes Wireless (Internet sem Fio)
Linux - Windows 2000
----------------------------------------------------------------
Fone: (38) 9968-6644
E-Mail: pcoimbra em connect.com.br
ICQ #: 166165943
-------------- Próxima Parte ----------
_______________________________________________________________
Sair da Lista: http://www2.fugspbr.org/mailman/listinfo/fugspbr
Historico: http://www4.fugspbr.org/lista/html/FUG-BR/