Re: OT.- Perl conversión de archivos.
Carlos Agustín L. Avila writes:
> El día 27 de enero de 2011 10:46, Alberto Luaces <aluaces@udc.es> escribió:
>> fernando sainz writes:
>>
>>> El día 27 de enero de 2011 17:32, Carlos Agustín L. Avila
>>> <cagustinla@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
Reply to: