Ando usando este módulo File::Find.
Para poder buscar todo tipo de archivos hasta ahora el code me quedo así:
Using perl Syntax Highlighting
use File::Find;
print "Nombre del directorio:\n";
$dir=<STDIN>;
chomp $dir;
open (TARGET, ">>readme.txt") ;
find(\&imprimir_directorio, $dir);
sub imprimir_directorio{
my $elemento = $_;
print "$File::Find::name\n" if -d $elemento;
print TARGET "$File::Find::name\n" if -d $elemento;
}
print "Nombre del directorio:\n";
$dir=<STDIN>;
chomp $dir;
open (TARGET, ">>readme.txt") ;
find(\&imprimir_directorio, $dir);
sub imprimir_directorio{
my $elemento = $_;
print "$File::Find::name\n" if -d $elemento;
print TARGET "$File::Find::name\n" if -d $elemento;
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
El problema es que readme queda vacío y no funciona.
Alguien me podría decir cómo modificar el código para que en readme.txt aparezca el resultado.
