Foro - Perl en Español

¡ay, esto me tiene loco! ¡ja,ja!

Hice lo que me dijiste

open(FILE, "< $File::Find::name") or return;
print "Leyendo fichero $File::Find::name\n<br>";

Se supone que me tenía que decir en qué directorios está buscando, ¿no?

Bien, pues me sale lo mismo que antes:

Para la búsqueda dibujos, estos resultados se encontraron:

Esto me tiene loco, más que nada porque a saber qué hago mal.

A ver, yo descartaría cosas.

¿Alguien ha probado con éxito el tutorial? Y si es así, ¿en páginas PHP? A ver si el cambio que hice para que solo muestre esa extensián da algún problema.

Así es como dijo kidd que estaba bien:

return unless ($_ =~ /\.php/i);

antes puse como me dijiste, explorer:

return unless ($_ =~ /\.php$/);

pero vamos ni una ni otra o las dos o ese no es el problema o yo que sé, ¡ja,ja!

Te agradezco la ayuda, explorer.