Foro - Perl en Español

por **ivanlog19** » 2009-09-21 13:06 @588

Hola,

supongamos que tengo un archivo de texto que se llama texto.txt y es así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

bla bla bla oihsa

ljhaf paijf a

CLAVE: hola

ljsg

lasjg

CLAVE: chau

lkj

joColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Quiero recorrerlo y guardar en variables las palabras que están después de CLAVE.
¿Cómo puedo hacer esto?

Voy haciendo esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(FILEHANDLE,"$rutaArchivo")||die"ERROR: no pude abrir el archivo: $!";
my@datos=$procesador->parsear(FILEHANDLE);

# en otro módulo tengo definida la subrutina parsear:
sub parsear {#recibe un archivo de texto y devuelve una lista con lo que quiero
my$texto= \@_[0];

$texto=~m/.*CLAVE:(.*) .*CLAVE: (.*) .*/;
my@datosRetornar=();
push(@datosRetornar,$1);
push(@datosRetornar,$2);

return@datosRetornar;
}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Primero: esto no funciona, no sé bien cómo es el tema de pasar referencias como parámetros.
Segundo: si no sé cuantas "CLAVE" van a haber, ¿cómo puedo hacer?

¡¡Agradezco cualquier ayuda!!

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

No queda muy claro que quieres decir con "guardar en variables".

Sería interesante saber para qué necesitas realizar esa lectura. Es decir, si suponemos que quieres leer esa información para guardarla en variables y hay varias CLAVES, eso quiere decir que necesitarás hacer un bucle para procesar de forma repetida esos valores. O quizás meter todo lo leído en un arreglo (array) y luego, más tarde, procesar ese arreglo.

Actualización: después de revisar un poco el código se ve que falta poco para terminarlo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
my $rutaArchivo = 'kk.txt';
 
open(my $file, "$rutaArchivo") or die "ERROR: no pude abrir el archivo: $!";
 
my @datos = parsear($file);
 
print join('-', @datos), "\n";
 
sub parsear {
    my $fh = shift;
    my @datosRetornar;
 
    while ( <$fh> ) {
        if (m/^CLAVE:\s*(.*?)$/) {
            push @datosRetornar, $1;
        }
    }
    return @datosRetornar;
}
 
__END__
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Bueno, no sé si esta era la idea, pero al menos, funciona.

por **ivanlog19** » 2009-09-21 13:28 @603

Gracias por la bienvenida y por la rápida respuesta.

Lo que quiero es buscar en un archivo de texto todas las veces que aparece una palabra y guardar la palabra que esta a continuación de dicha palabra en un arreglo;

si la palabra es, como en el ejemplo "CLAVE" quiero que guarde en un arreglo la primer palabra que esta después de cada palabra que sea "CLAVE".

Por ejemplo, en el ejemplo de archivo que puse quiero que la subrutina parsear me retorne un array con hola y chau (o sea, @datos = ('hola','chau') )

Espero se entienda, cualquier cosa lo trato de explicar mejor.

¡¡Gracias!!

por **explorer** » 2009-09-21 13:42 @612

¡Ah!, entonces es mucho más fácil: vas leyendo línea por línea, y en cada una miras a ver si está la CLAVE. Si es así, capturas el resto y lo vas guardando.

Ya he modificado el mensaje anterior con esa solución.

por **ivanlog19** » 2009-09-21 14:14 @635

¡Excelente!

Pero si ahora quiero que la función parsear esté en otro módulo, ¿cómo hago?

Ya que al hacer lo mismo que si estuviera en el mismo módulo me dice lo siguiente de la variable que le paso "Not a GLOB reference".

¡Gracias nuevamente!

por **explorer** » 2009-09-21 14:45 @656

¿Cómo que cómo lo haces? Pero si pones en el anterior código que ya lo tenías dividido en el otro módulo.

Solo tienes que adoptar el código que hay dentro de la función a lo que tienes.

Si te sale un error, sería recomendable ver el código que falla.

Por lo que dices, parece que el error está en el paso del argumento a la función, y ésta no es capaz de leerlo correctamente.

P.D: Recuerda que estamos en el foro Intermedio

por **ivanlog19** » 2009-09-21 15:28 @686

OK.

Una última pregunta, ¿cómo hago para guardar, en vez de lo que está a continuación de la palabra "CLAVE", lo que está en el renglón de abajo de "CLAVE" (suponiendo que siempre el renglón de abajo de uno que empieza con "CLAVE" empieza con "PARA", y quiero guardar la palabra que esta a continuación de "PARA")?

Traté de hacer algo así, pero no pude:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    while ( <$fh> ) {
        if (m/^CLAVE:.*/){
            <$fh>; #trate de hacer esto para que pase a la prox. línea
 
            m/^PARA\s*(.*)\s*/; #busco la palabra siguiente a 'PARA'
            push (@datosRetornar, $1);
        }
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-09-21 16:53 @745

Tienes que meter a la expresión regular en una condición, como la de CLAVE.

Sería más claro ver un ejemplo real del texto que quieres tratar...

Foro - Perl en Español

Buscar en un archivo de texto

Buscar en un archivo de texto

Publicidad

Re: Buscar en un archivo de texto

Re: Buscar en un archivo de texto

Re: Buscar en un archivo de texto

Re: Buscar en un archivo de texto

Re: Buscar en un archivo de texto

Re: Buscar en un archivo de texto

Re: Buscar en un archivo de texto

¿Quién está conectado?