Foro - Perl en Español

por **Eowyn** » 2012-05-22 05:56 @289

Hola,

estoy haciendo pruebas con un programa y no me devuelve nada, creo que entro en un bucle infinito y por más que miro no encuentro el porqué:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 my $indizea=0;
        my $ADI=0;
        my @ADIak = ('"wid="w1"', 'wid="w2"');                        # vector con dos string de prueba
        my $lerroADI= 'wid="w2"';                                     # string que quiero buscar en el vector
        while (($indizea<=scalar(ADIak))||($ADI=0)){                  # hasta que se acabe el vector o no lo encuentre
                if ((@ADIak[$indizea]) = $lerroADI =~ /wid="(.*?)"/){ # si lo encuentra...
                        $ADI=1;
                }
                else {
                        $indizea=$indizea+1;
                }
        }
        print ($ADI);
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¿Podrían ayudarme, por favor?

Tienes puesta esta condición:

($indizea<=scalar(ADIak)) || ($ADI=0)

Hay varios problemas...

1.- Estás poniendo scalar(ADIak), pero ADIak, *ahí*, es un literal, por lo que scalar() siempre devolverá 1 (y de aquí viene el bucle infinito).

2.- Cambiando el '||' por un 'or' puede ahorrarte algún paréntesis...

3.- Al final pones $ADI=0. Esto no es una comparación, sino una asignación, por lo que *siempre* estás poniendo $ADI al valor 0, no preguntando por qué valor tiene.

Solución:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        while ($indizea <= @ADIak  or  $ADI == 0) {
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

aunque yo reharía todo el bucle así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $ADI = 0;
my @ADIak = ('"wid="w1"', 'wid="w2"');                        # vector con dos string de prueba
my $lerroADI = 'wid="w2"';                                    # string que quiero buscar en el vector
 
for my $ADIak (@ADIak) {
    if (($ADIak) = $lerroADI =~ /wid="(.*?)"/) {              # si lo encontramos...
        $ADI = 1;
        last;
    }
}
print "$ADI\n";
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De todas maneras... sospecho que hay algo raro... ¿seguro que quieres guardar en $ADIak el resultado de la captura de la expresión regular? ¿No será que solo quieres saber si $lerroADI contiene ese patrón?

por **Eowyn** » 2012-05-23 02:37 @150

Lo cierto es que sí pretendía comparar patrones y no quería guardar nada.

Yo pretendo buscar el "lerroadi" dentro del vector: si lo encuentro, pongo ADI=1 y salgo del while, pero si no, el programa debe devolver 0. Por ello una estructura con "for" no me convenía, ya que el for me mirará todos los elementos cuando yo sólo quiero mirar los elementos hasta encontrar dicho patrón.

Aún probando su solución, me da un bucle infinito, ¿es por que no comparo nada y simplemente guardo un patrón? Gracias.

por **explorer** » 2012-05-23 03:16 @178

Un bucle for() no puede ser el que provoca el bucle infinito, porque @ADIak es finito.
Y no, no recorremos todos los valores: en cuanto encontramos una coincidencia salimos con la ayuda de last.

Lo siguiente lo he probado, y funciona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @ADIak = ('"wid="w1"', 'wid="w2"');          # vector con dos cadenas de prueba
my $lerroADI = 'wid="w2"';                      # cadena que quiero buscar en el vector
my $aurkitu = 0;
for my $ADI (@ADIak) {
    if ($lerroADI eq $ADI) {
        $aurkitu = 1;
        last;                                   # salimos enseguida
    }
}
if ($aurkitu) {
     print "Encontrado\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¡Ojo! Estoy buscando que $lerroADI sea, exactamente, igual a alguno de los elementos de @ADIak. Por eso uso 'eq' (igualdad de cadenas alfanuméricas).

En Perl un poco más moderno:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.14;
my @ADIak = ('wid="w1"', 'wid="w2"');           # vector con dos cadenas de prueba
my $lerroADI = 'wid="w1"';                      # cadena que quiero buscar en el vector
if ($lerroADI ~~ @ADIak) {
    print "Encontrado\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Otro detalle: el primer elemento de @ADIak creo que tiene unas '"' demás (se las he quitado en el segundo ejemplo).

por **Eowyn** » 2012-05-23 03:52 @203

Exactamente, es una respuesta perfecta.

Veo que por culpa mía y seguro que de alguno más comienzas a dominar la lengua vasca ($aurkitu) ¡ja,ja!.

Muchas gracias por todo.

Foro - Perl en Español

Bucle ¿infinito?

Bucle ¿infinito?

Publicidad

Re: Bucle ¿infinito?

Re: Bucle ¿infinito?

Re: Bucle ¿infinito?

Re: Bucle ¿infinito?

¿Quién está conectado?