Foro - Perl en Español

por **Ulloa** » 2011-03-05 11:34 @523

Buenas tardes, necesito ayuda para resolver el siguiente problema:

Tengo un archivo con texto parecido al siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

/XXXXXXXXXX/00:00/00:05

PCKT_RCVD/21039

BAD_HCHKSM/0

PCBS_FAIL/0

/YYYYYYYYYY/00:00/00:05

net0: IPKTS/22240

net0: IERRS/0

/ZZZZZZZZZZ/00:00/00:05

DISK_ALL/8391600

DISK_FREE/1524255Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Tengo el siguiente código para que cuando se encuentre una línea que inicia con "/" y no cumpla con cierta condición todas las siguientes líneas sean ignoradas hasta encontrar una nueva línea que inicie con ese carácter y sea evaluada, y así sucesivamente. ¿Está correcto el código? ¿Hay una forma más sencilla de hacerlo?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$c = 0;
while ( $linea = <FILE> ) {
    chomp();
 
    # Si esta iniciando o lleva flujo normal
    if ( $c == 0 ) {
 
        # Si linea inicia con carácter /
        if ( $linea =~ /^\// ) {
 
            # Si existe hace algo (normal)
            if ( existe() ) {
 
                #Hacer algo
                $c = 0;
            }
 
            # Si no existe se modifica la bandera $c
            # todas las siguientes líneas deben ser ignoradas
            # hasta encontrar otra que inicie con carácter /
            else {
                $c = 1;
            }
 
            # Siguiente línea
            next;
        }
        else {
 
            #Hacer algo
            grabarDatos();
        }
    }
 
    # Si $c=1
    # Si es una de las líneas que sigue a la
    # que comienza con /
    else {
 
        # Si se encuentra otra línea que inicia con /
        if ( $linea =~ /^\// ) {
 
            #Hacer algo
            # Se reinicia bandera
            $c = 0;
 
            # Se manda a repetir la misma línea
            redo;
        }
 
        #Más código
    }
 
    #Más código
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Agradeceré mucho la ayuda que puedan brindarme.

#!/usr/bin/perl
use common::sense;
use autodie;
 
my $estamos_en_párrafo_interesante;
 
open my $FICHERO, q[<], 'kk.txt';
 
while (my $línea = <$FICHERO>) {
 
    if ($línea =~ m[^/]) {
 
        $estamos_en_párrafo_interesante = "sí";
    
        unless ( existe() ) {
            undef $estamos_en_párrafo_interesante;
        }
 
        next;
    }
 
    if ($estamos_en_párrafo_interesante) {
        grabarDatos();
    }
}
 
close $FICHERO;
 
__END__
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **Ulloa** » 2011-03-05 13:12 @592

Perfecto Explorer, lo único que cambie fue una condición, porque se ejecuta grabarDatos() solo cuando existe() es verdadero.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use common::sense;
use autodie;
my$estamos_en_párrafo_interesante;
openmy$FICHERO,q[<],'kk.txt';
while(my$linea=<$FICHERO>){
if($linea=~m[^/]){
$estamos_en_párrafo_interesante ="sí";
if( existe()){
undef$estamos_en_párrafo_interesante;
}
next;
}
if(!defined($estamos_en_párrafo_interesante)){

        grabarDatos();
}
}
close$FICHERO;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Quizás me centré mucho en cómo volver a la iteración anterior en el loop y encontré la instrucción redo, luego me enredé. Pero tu solución me gusta mucho.

¡¡¡¡¡¡¡Muchas gracias!!!!!!!!

Desde que encontré esta página me pareció que le dedicas mucho tiempo a este sitio y que eres un verdadero didacta, y mira, lo he comprobado y muy oportuno.

Saludos,

Ulloa

por **explorer** » 2011-03-05 13:35 @608

Sí, ya me dí cuenta de que había escrito mal la condición del existe(), pero la arreglé enseguida con un unless(). Mira ahora el código.

por **pvaldes** » 2011-03-05 17:35 @774

mmh... al hilo de ésto ¿meter tildes en un nombre de variable es posible? (¿o recomendable?). Pensaba que no estaba permitido...

por **explorer** » 2011-03-05 18:00 @791

Ya ves que sí es posible. Desde hace ya unos años se pueden poner tildes en el código, siempre que lo actives con el pragma 'use utf8;' (yo lo activo con 'use common::sense;').

¿Recomendable? No es recomendable si escribes código que va a ser leído por otros que no sepan español.

Por lo demás, para los hispanohablantes, el código se vuelve más legible, sin tantas faltas de ortografía

También se puede escribir en otros idiomas, como japones, chino, koreano... o incluso latín.

por **Ulloa** » 2011-03-07 10:23 @474

Hola explorer, quiero aprovechar para preguntar sobre tu forma de programar en Perl. Usas muchas librerías
¿Tienes algún sitio preferido donde consultes esa información?

También hay algunas instrucciones que me parecen mas fáciles de entender de como la mayoría las utiliza por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$linea=~m[^/]Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Yo lo exprese así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$linea=~/^\//Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Cuál sería la diferencia?

Tenía entendido que los corchetes [] son para expresar clases y que caracteres como / se deben especificar como tales.

¿Será que estas son ventajas de utilizar librerías como common::sense, que mencionaste?

Saludos.

por **explorer** » 2011-03-07 12:19 @555

Ulloa escribiste:Hola explorer, quiero aprovechar para preguntar sobre tu forma de programar en Perl. Usas muchas librerías. ¿Tienes algún sitio preferido donde consultes esa información?

CPAN

Ulloa escribiste:También hay algunas instrucciones que me parecen mas fáciles de entender de como la mayoría las utiliza por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
$linea =~ m[^/]
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Yo lo exprese así:
Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
$linea =~ /^\//
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

¿Cuál sería la diferencia?

Ninguna. Sólo la escritura de la expresión regular.

Ulloa escribiste:Tenía entendido que los corchetes [] son para expresar clases y que caracteres como / se deben especificar como tales.

Sí, pero en este caso, los corchetes no definen clases de caracteres, sino que son los delimitadores del patrón.

Resulta que con los operadores m// y con s/// puedes usar los delimitadores que quieras. Tradicionalmente, se usan los '//', y por eso se puede obviar la 'm'. Pero si pones 'm', puedes poner casi cualquier delimitador.

Por ejemplo, la línea anterior se podría reescribir como $linea =~ m{^/} .

La ventaja es la siguiente: si en el patrón, hay un carácter '/' (como es este caso), y usamos los delimitadores '//', entonces estamos obligados a "escaparlo" con un '\' (como has hecho tú) para que no se confunda nuestro '/' con uno de los delimitadores. Usando corchetes (o llaves o paréntesis o ...) entonces, no es necesario "escapar" el '/'.

Ulloa escribiste:¿Será que estas son ventajas de utilizar librerías como common::sense, que mencionaste?

No. Esto es una facilidad del propio lenguaje. Más información sobre el operador m// en la sección Regexp Quote-Like Operators.

Foro - Perl en Español

Retroceder línea al leer un archivo

Retroceder línea al leer un archivo

Publicidad

Re: Retroceder línea al leer un archivo

Re: Retroceder línea al leer un archivo

Re: Retroceder línea al leer un archivo

Re: Retroceder línea al leer un archivo

Re: Retroceder línea al leer un archivo

Re: Retroceder línea al leer un archivo

Re: Retroceder línea al leer un archivo

¿Quién está conectado?