Ol�,
----------- Inicio Codigo --------------
#!/usr/bin/perl
use Pg;
$conn = Pg::connectd "dbname=teste");
$TABLE = 'Coloque aqui o nome de sua tabela';
open(FILE, "/var/log/radacct/default/detail");
@linhas = <FILE>;
close(FILE);
foreach $linha (@linhas) {
@dados = split(/ /,$linha); # Utilize o delimitador de acordo com seu
arquivo
$conn->exec("INSERT INTO $TABLE values
($dados[0],$dados[1],$dados[2],$dados[3],.... etc e tal);");
}
----------- Fim Codigo --------------
Eu uso mais ou menos assim, s� que utilizo Banco de Dados PostgreSQL.
Acredito que n�o deve mudar muita coisa.
Trato arquivos bem grandes e funciona normalmente!
@bra�os,
--
Cleiton Luiz Siqueira
Analista de Sistema
WebSystem Solu��es para Internet
(45) 9963-7429
--------- Mensagem Original --------
De: "Grupo Brasileiro de Usuarios FreeBSD" <[EMAIL PROTECTED]>
Para: "Grupo Brasileiro de Usuarios FreeBSD" <[EMAIL PROTECTED]>
Assunto: [FUGSPBR] 1/2 OFF: perl & arquivos de texto
Data: 22/07/03 19:09
Ola Pessoal,
Estou desenvolvendo um script em Perl, que faz o seguinte:
L� o arquivo de accounting do Radius (tipo, /var/log/radacct/default/detail)
e gera registros em uma tabela MySQL.
Quando o arquivo esta pequeno, com alguns Mb (at� 50Mb) ele gera legal,
apesar de demorar um pouco. Mas quando ele aumenta de tamanho no final do
mes (cento e poucos Mb) o script nao consegue processar o arquivo. Como
funciona o script? Ele abre o aquivo e joga o conteudo em uma matriz.
Alguem sabe alguma forma de o script ler o arquivo sem eu jogar em uma
matriz, ou ir liberando a matriz a cada n linhas ou n Mb????
qq ajuda eh bem vinda....
=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: [EMAIL PROTECTED]
ICQ #: 166165943
_______________________________________________________________
Sair da Lista: http://www2.fugspbr.org/mailman/listinfo/fugspbr
Historico: http://www4.fugspbr.org/lista/html/FUG-BR/
_______________________________________________________________
Sair da Lista: http://www2.fugspbr.org/mailman/listinfo/fugspbr
Historico: http://www4.fugspbr.org/lista/html/FUG-BR/
