Me he leido el tutorial del modulo File de la pagina http://perlenespanol.baboonsoftware.com, y me ha funcionado a la perfección, sin embargo modifique el codigo para que todos los archivos que encuentre en un directorio no me los muestre en pantalla, sino que los guarde en un archivo, el siguiente es el codigo que implemente...
#!C:\perl\bin\perl.exe -w
use strict;
use File::Find;
my $dir='c:/Perl/lib/';
find(\&listado_archivos,$dir);
sub listado_archivos {
open ARCHIVOS,">archivos.txt";
my $elemento=$_;
print ARCHIVOS "$File::Find::name\n";
close(ARCHIVOS);
}
pero al ejecutarlo no me guarda el listado de todos los archivos sino el ultimo que encontro...
como hago para que me funcione correctamente?
gracias..
