2011/1/27 Carlos Agustín L. Avila <cagusti...@gmail.com>: > El día 27 de enero de 2011 14:04, Alberto Luaces <alua...@udc.es> escribió: >> Carlos Agustín L. Avila writes: >> >>> El día 27 de enero de 2011 10:46, Alberto Luaces <alua...@udc.es> escribió: >>>> fernando sainz writes: >>>> >>>>> El día 27 de enero de 2011 17:32, Carlos Agustín L. Avila >>>>> <cagusti...@gmail.com> 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 debian-user-spanish-requ...@lists.debian.org >> with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org >> Archive: http://lists.debian.org/87bp32yuy8....@eps142.cdf.udc.es >> >> > > Ok, Alberto. > El detalle es que son casi 6000 archivos. No pasa nada por que sean tantos ficheros, el find te lo va a hacer por ti
Create un script que sea a_utf8 fichero que haga lo que tu quieras (copia de seguridad, conversión ... ) y luego ejecuta el find con -exec a_utf8 fichero \; Y en un ratito lo tendrás Saludos -- 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/AANLkTik=JjGKBOsXNrHXY=t9Da_K=3g2np+jdp6j_...@mail.gmail.com