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é:
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.004 segundos, usando GeSHi 1.0.8.4
¿Podrían ayudarme, por favor?