Re: OT.- Perl conversión de archivos.
2011/1/27 Carlos Agustín L. Avila <cagustinla@gmail.com>:
> El día 27 de enero de 2011 14:04, Alberto Luaces <aluaces@udc.es> escribió:
>> 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
>>
>>
>> --
>> To UNSUBSCRIBE, email to debian-user-spanish-REQUEST@lists.debian.org
>> with a subject of "unsubscribe". Trouble? Contact listmaster@lists.debian.org
>> Archive: [🔎] 87bp32yuy8.fsf@eps142.cdf.udc.es">http://lists.debian.org/[🔎] 87bp32yuy8.fsf@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
Reply to: