Foro - Perl en Español

Tengo este código:



Y me imprime esto:

Código: Seleccionar todo

2->1===8->24>>24juniop2.jpg
2->1===8->8>>8juniop2.jpg
2->1===8->5>>5juniop2.jpg
2->1===8->27>>27mayop2.jpg
2->1===8->22>>22mayop2.jpg
2->1===8->19>>19mayop2.jpg
2->1===8->16>>16mayop2.jpg
2->1===8->15>>15mayop2.jpg
2->1===8->8>>8mayop2.jpg
1->1===8->24>>24junio.jpg
1->1===8->8>>8junio.jpg
Nombre: 8junio.jpg
gato1->1===8->5>>5junio.jpg
1->1===8->27>>27mayo.jpg
1->1===8->22>>22mayo.jpg
1->1===8->19>>19mayo.jpg
1->1===8->16>>16mayo.jpg
1->1===8->15>>15mayo.jpg
1->1===8->8>>8mayo.jpg
Nombre: 8mayo.jpg
gato

Resultado: NO HAY FOTO3

Se supone que el if se cumple dos veces por lo tanto debería retornarme "gato" pero no, lo que me retorna es "NO HAY FOTO3".

¿QUÉ PASA?

Las variables utilizadas en los bucles for y foreach son 'localizadas' dentro del bucle. Es decir, la variable $foto que usas en el foreach es la misma que usas fuera del bucle, pero dentro del bucle, su valor es salvaguardado, y cuando se termina el bucle, se recupera su valor.

Primer párrafo de
http://perldoc.perl.org/perlsyn.html#Foreach-Loops

Es como si hubieras hecho un local a la variable.

Ejemplo:

Ah, ya me decía yo que estaba por esos lados... sí, eso fue como si hiciera la variable local.