El día 27 de enero de 2011 17:32, Carlos Agustín L. Avila <[email protected]> escribió: > 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. > >
Creo que ya existen programas para eso, yo buscaría un poco... (Salvo que sea un ejercicio de programación :-) ) -- To UNSUBSCRIBE, email to [email protected] with a subject of "unsubscribe". Trouble? Contact [email protected] Archive: http://lists.debian.org/[email protected]
