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. -- To UNSUBSCRIBE, email to debian-user-spanish-requ...@lists.debian.org with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org Archive: http://lists.debian.org/aanlktinfxabkjfxrgipm1zjsw9tftv1pxqxx-dgnt...@mail.gmail.com