Foro - Perl en Español

por **tuxiano** » 2012-06-22 19:57 @873

Muy buenas, gente. Soy un aficionado a bash y hace poco empecé con Perl. Hoy mismo estuve haciendo algo en el trabajo.

Lo que tengo es lo siguiente: Un archivo de texto XML, y una cadena de caracteres aleatoria por la cual buscar.

He probado de varias maneras y no logré que Perl me imprima la cadena aun así yo sabiendo que la misma existe en el archivo.

El script que tengo es algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

##!/usr/bin/perl
 
print "Ingrese archivo a parsear:";
$file = <STDIN>;
print "Ingrese argumento de busqueda:";
 
$argumento=<STDIN>;
#$file = $ARGV[0];
#die "\n[x] Ingrese Argumento\n\nUSO: $0 file.txt\n\n" if(!$ARGV[0]); ## si falt                                                                                       a el primer argumento termina el prog y describe el uso
#
# ## esto es un comentario xD
# ## este es otro comentario , tengo sueÃ±P
#print "$file";
open( FILE, "<$file" ) || die "[x] No se puede abrir archivo\n";
$l = 0;
while ( $line = <FILE> ) {             ## recorre el archivo y lo apunta a $line
    $l++;                              ## contador :P
    if ( $line == $argumento )
    {                                  ## regexp toma las lineas en las que encuentre :                                                                                          # :S
 
        #print "$argumento";
        #print "$line";
        push( @almacen, $line );       ## almacena en el array @almacena if esta el match
        print "linea: $l \t->\t ";
        print "$line";
 
        #if($line =~ m/(.*):(.*)/g){  ## captura los datos que estan entre ":" .
        #print "\t\t\t dato1-> $1\n";
        #print "\t\t\t dato2-> $2\n\n";
        #}
    }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El problema está en la comparación en el "if". Si yo, en esta línea, pongo algo constante, del tipo
=~ /cadena/;, Perl logra la comparación de manera más que exitosa, pero no así, cuando intento asignar la cadena a buscar a una variable y que la misma sea la comparada.

Espero ser claro. Muchas gracias de antemano.

Bienvenido a los foros de Perl en Español, tuxiano.

En Perl, hay que usar los operadores de comparación adecuados a cada situación.

El operador '==' es el de igualdad numérica.

Necesitarás usar el operador 'eq', que es el igualdad alfanumérica.

Ahora bien, no estamos buscando una igualdad (salvo que en algún momento queramos buscar una línea entera), sino saber si en una parte de la $linea leída está la cadena que buscamos. En esos casos usamos las expresiones regulares, con el operador =~.

Tu programa sería así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
print "Ingrese el archivo a parsear:";
$file      = <STDIN>;
chomp $file;                           # quitamos carácter de fin de línea
print "Ingrese argumento de búsqueda:";
$argumento = <STDIN>;
chomp $argumento;
 
open( FILE, "<$file" ) or die "[x] No se puede abrir archivo $file: $!\n";
 
$l = 0;
while ( $line = <FILE> ) {             # recorre el archivo y lo apunta a $line
    $l++;                              # contador :P
 
    if ( $line =~ /$argumento/ ) {     # regexp toma las líneas en las que encuentre $argumento
 
        push @almacen, $line;          # almacena en el array @almacen
 
        print "linea: $l \t->\t $line";
    }
}
 
close FILE;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **tuxiano** » 2012-06-22 22:35 @983

Wow, usted sí que sabe, ¡¡¡¡¡GRACIAS!!!!!

Foro - Perl en Español

Buscar en archivo e imprimir cadena de caracteres

Buscar en archivo e imprimir cadena de caracteres

Publicidad

Re: Buscar en archivo e imprimir cadena de caracteres

Re: Buscar en archivo e imprimir cadena de caracteres

¿Quién está conectado?