Re: OT.- Perl conversión de archivos.

[Alberto Luaces <aluaces@udc.es>]

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