Hola, comunidad de Perl en Español. Soy nuevo en el foro y ando complicado con el tema de hash de hashs.
Crearlos es sencillo pero leerlos no termino de comprender... tal vez esté haciendo todo mal.
A ver...
Tengo esto:
print "Nombre de la carpeta: ";
$carpeta = <STDIN>;
chomp($carpeta);
opendir(DIR,$carpeta) || die "Error al abrir la carpeta.";
readdir(DIR);
readdir(DIR);
while( $file=readdir(DIR)) {
open(F,"$carpeta\\$file") || die "archivo no encontrado";
while ( $linea=<F> ) ...