Foro - Perl en Español

Hola necesito ayuda tengo un archivo log el cual quiero separar línea a línea y separarlo por campos.

Ejemplo. Esta es la línea:

Código: Seleccionar todo

Tue Feb 13 19:07:35 2007; TCP; eth0; 1500 bytes; from 69.28.145.24:80 to 10.1.42.251:1341; first packet

y la quiero separada para insertarla a una base datos de la siguiente manera:

Código: Seleccionar todo

dia(dd) hora(hh) min(mm) segundo(ss) año(aaaa) protocolo interface tamaño ip1 ptoip1 ip2 ptoip2

13 19 07 35 2007 TCP eth0 1500 69.28.145.24 80 10.1.42.251 1341

para despues insertarlo a la base de datos.

no esta separdo quiz ame explique bien lo que sucede es que tengo una archivo

de este tipo

Tue Feb 13 19:07:35 2007; TCP; eth0; 1500 bytes; from 69.28.145.24:80 to 10.1.42.251:1341; first packet
Tue Feb 13 19:07:35 2007; TCP; eth0; 1500 bytes; from 10.1.103.235:2418 to 204.15.20.20:80; first packet
Tue Feb 13 19:07:36 2007; TCP; eth0; 52 bytes; from 10.1.42.251:1341 to 69.28.145.24:80; first packet

y yo quiero recorrer linea por linea
y obtenr algo un archvivo archivo.sql con el formato siguiente


insert into log ('13' ,'19', '07', '35', '2007', 'TCP', 'eth0' ,'1500', '69.28.145.24', '80' '10.1.42.251', '1341')

y lo tengo hehco es bash y es muy lento al procesar, pero en esto de perl no soy todo un novato y leyendo en google en perl deberia ser mas rapido y mejor

si me pudiaran hechar la manos se lso agredecere mucho

¡Sí, como dice explorer!

Intenta usando while y split, si quieres algo mas difícil y perfecto usa pack.



Esa es la forma más fácil.

[editado por problemas de dislexia]

Con ayuda de ustedes hasta ahorita tengo esto:



y el resultado es el siguiente

Código: Seleccionar todo

Tue Feb 13 19:07:35 2007  TCP  eth0  1500 bytes  from 69.28.145.24:80 to 10.1.42.251:1341  first packet

¿y ahora cómo le hago para poder procesar esa arreglo $cadena a modo de que quede así?

Código: Seleccionar todo

TCP eth0 1500 69.28.145.24 80 10.1.42.251 1341

o de la siguiente forma

Código: Seleccionar todo

insert into log values('TCP', 'eth0', '1500', '69.28.145'.'24', '80',' 10.1.42.251', '1341')

Aunque no lo he ejecutado debe de funcionar

no funciona no imprime nada solo las comillas

y el prel quedo asi




open ENTRADA, "date.log" or die "Oops data.log: $!\n";
while (my $linea = <ENTRADA>)
{
chomp;
my @elementos=split(/;/,$linea);
$cadena=join(" ",@elementos);
$elementos[5] =~ s/:/ /g;
$elementos[6] =~ s/:/ /g;
$elementos[7] =~ s/:/ /g;
$elementos[8] =~ s/:/ /g;
$elementos[9] =~ s/:/ /g;
#print "$cadena\n";
print "$elemento[5], $elemneto[6], $elemneto[7], $elemneto[8], $elemneto[9]\n";
}
close ENTRADA;

y ya le quite el $cadena=join(" ",@elementos);

y no funcion a

si de hecho ya lo puse correectamente pero no me funcion a

me despliega esta

first packet (SYN)
, , , ,
, , , ,
first packet (SYN)

y ya jugue con la posicion del arreglo

una pregunta mas

solo duda mas de de todas las anteriores

open ENTRADA, "date.log" or die "Oops data.log: $!\n";
while (my $linea = <ENTRADA>)
{
chomp;
my @elementos=split(/;/,$linea);
# $cadena=join(" ",@elementos);
$elementos[1] =~ s/ / /g;
$elementos[2] =~ s/ / /g;
$elementos[3] =~ s/bytes/ /g;
$elementos[4] =~ s/:/ /g;
$elementos[7] =~ s/:/ /g;
$elementos[8] =~ s/:/ /g;
#print "$cadena\n";
print "$elementos[1], $elementos[2], $elementos[3], $elementos[4] \n"
}
close ENTRADA;

y me da como salida esto

TCP, eth0, 46 , from 10.1.16.119 4617 to 64.214.84.187 80


y me imagino que en $elementos[x]=~s/ / /g ·esosparametros de de aver una forma de separarlo de la siguiente manera

TCP, eth0, 46 , 10.1.16.119, 4617,64.214.84.187, 80


si me prodrian hechar la mano se los agradesco de favor