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

Responder a