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
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
Archive: http://lists.debian.org/[email protected]
