Hola a todos.
Solicito de su valiosa ayuda con un script en Perl, el cual debe de
cambiar la codificación latin1 a utf8 de n cantidad de archivos.
opendir(DIR,"/home/becerro/NetBeansProjects/Prontuario/vigente");
my @files = readdir(DIR);
closedir(DIR);
foreach my $file(@files) {
if (-T $file) {
print $file."\n";
}
}
Al momento de ejecutarlo me puestra todos los archivos del directorio.
Gracias.