El día 27 de enero de 2011 14:04, Alberto Luaces <[email protected]> escribió: > Carlos Agustín L. Avila writes: > >> El día 27 de enero de 2011 10:46, Alberto Luaces <[email protected]> escribió: >>> fernando sainz writes: >>> >>>> 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 :-) ) >>>> >>> >>> find /home/becerro/NetBeansProjects/Prontuario/vigente -type f -exec \ >>> iconv {} -t utf-8 -o {}.convertido \; > > [...] > >> >> Alberto gracias, si embargo cometi el error de no dar mas detalles >> sobre mi problema. >> Los archivos de texto ubicados en el diretorio vigentes necesito >> moverlos al directorio vigentes.res, luego los archivos del directorio >> vigentes.res necesito cambiarles la codificación y guardarlos en el >> directorio vigentes. >> En pocas palabras: Todos los archivos de texto que se encuentran en el >> directorio vigentes tengo que cambiarles la codificación. >> Esto es debido a que fueros creados en un Debian con codificación latin1 > > Pues tan fácil como borrar los antiguos, y renombrar los nuevos, y sin > necesidad de «.res». ¿Que quieres una copia de seguridad? Pues la haces > antes y así tienes los originales. > > -- > Alberto > > > -- > To UNSUBSCRIBE, email to [email protected] > with a subject of "unsubscribe". Trouble? Contact [email protected] > Archive: http://lists.debian.org/[email protected] > >
Ok, Alberto. El detalle es que son casi 6000 archivos. -- To UNSUBSCRIBE, email to [email protected] with a subject of "unsubscribe". Trouble? Contact [email protected] Archive: http://lists.debian.org/AANLkTim0WW-¨[email protected]
