Foro - Perl en Español

por **sferreira01** » 2006-10-03 06:54 @329

Buenas, mi consulta es la siguiente:
en un txt un texto con el siguiente formato:

Código: Seleccionar todo: ------- system Information for \\nombredepc1 Processor: 500 mhz ram: 512mb sistema Operativo: Windows XP Professional . ------- system Information for \\nombredepc2 Processor: 1ghz ram: 512mb sistema Operativo: Windows 2000 Professional . -------

y así sigue....
Yo necesito tomar cada bloque delimitado entre las líneas separadoras formadas por guiones "---------" (estás lineas puedo reemplazarlas por otro caracter si fuera necesario) y encolumnar esos datos, que quede de la siguiente manera:

Código: Seleccionar todo: "System information for" "Processor" "Ram" "Sistema Operativo" nombredepc1 500 mhz 512 windows XP pro. nombredepc2 1 ghz 512 windows 2000 pro

La verdad es que no soy programador... (doy soporte tecnológico) muy poco sé de programación... pero hice un script en NT que recolecta los datos de esa manera... (lamentablemente no hay forma de hacerlo diferente) el archivo es muy extenso y debo encolumnarlo.
(El .pl debo correrlo desde la línea de comandos de windows.)
Bueno, desde ya, muchas gracias por cualquier ayuda que puedan brindarme.

¡Gracias!
Saludos.

#!/usr/bin/perl

@registros=do{local$/="-------\n";open FILE,"<fichero.txt";<FILE>};

print"System information for\tProcessor\tRam\tSistema Operativo\n";
foreach$registro(@registros){
($sistema,$procesador,$ram,$so)=$registro=~
/information for (.+)\s+processor: (.+)\s+ram: (.+)\s+sistema Operativo: (.+)$/mi;
nextunless$sistema;
print"$sistema\t$procesador\t$ram\t$so\n";
}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

saca el resultado:

Código: Seleccionar todo: System information for Processor Ram Sistema Operativo \\nombredepc1 500 mhz 512mb Windows XP Professional . \\nombredepc2 1ghz 512mb Windows 2000 Professional .

Explicación:
* Usando una redefinición de la variable '$/' (delimitador de entrada) a la forma que separan los registros, podemos leerlos todos y meterlos en un array llamado @registros.
* Pintamos la cabecera
* Luego, por cada uno de los registros, extraemos los valores que nos interesan con una expresión regular.
* Y finalmente los pintamos en forma tabular.

por **sferreira01** » 2006-10-05 14:52 @661

¡¡Gracias!! ¡¡funcionó perfecto!!... Ahora tengo otro problema que no contemplé al hacerles la consulta inicial... espero no abusar de tu buena voluntad, si me podés dar otra mano... ahi va la nueva consulta:
Algunos de los registros que se graban, no están completos y no tienen la misma forma, te lo ejemplifico más abajo:

Código: Seleccionar todo: ------- system Information for \\nombredepc1 Processor: 500 mhz ram: 512mb sistema Operativo: Windows XP Professional ------- system Information for \\nombredepc2 Processor: 1ghz ------- system Information for \\nombredepc3 Processor: 2ghz ram: 1gb sistema Operativo: Windows 2003 -------

Si te fijas el segundo registro (de nombredepc2), no trajo ni la ram ni el S.O.
Si corro el programa que me indicaste, los casos en que no trajo todos loas datos, no me los muestra...
Se puede modificar algo, para que, aunque no estén todos los datos, igualmente me genere el registro... con los datos que encuentre...
yo sé que como máximo puede encontrar el registro completo, como lo ejemplifice primero.

Desde ya, muchas gracias por tu ayuda...
Disculpá mi ignoracia, pero no me dedico a programar, y sinceramente no entiendo casi nada.
¡otra vez GRACIAS!
Saludos.

por **explorer** » 2006-10-05 15:54 @704

Creo que es esta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl

$/="-------\n";# Delimitador de registros de entrada

open FILE,"<fichero.txt"ordie"ERROR: No pude abrir el fichero: $!\n";

print"System information for\tProcessor\tRam\tSistema Operativo\n";

while($registro=<FILE>){

($sistema)=$registro=~/information for (.+)\s+/i;
($procesador)=$registro=~/processor: (.+)\s+/i;
($ram)=$registro=~/ram: (.+)\s+/i;
($so)=$registro=~/sistema operativo: (.+)\s+/i;

nextunless$sistema;

print"$sistema\t$procesador\t$ram\t$so\n";
}

close FILE;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Se sigue contemplando el caso de que el nombre del sistema SI debe de aparecer.

Y si no te dedicas a programar, mejor será que empieces rápido a aprender antes de que contraten a otra persona que sí sepa ;-)

Actualización: puesta una versión más básica, con menos modismos Perl

Foro - Perl en Español

¿¿Como hago para encolumnar este texto??

¿¿Como hago para encolumnar este texto??

Publicidad

¿Quién está conectado?