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

[Alberto Luaces <aluaces@udc.es>]

Hector Colina writes:

> El 27/01/11 12:02, Carlos Agustín L. Avila 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.
>> 
>> 
>
> Hasta con bash se puede hacer:
>
> for in in `/home/becerro/NetBeansProjects/Prontuario/vigente` ; do
> iconv $i -t utf8 -o $i_utf8 done;

Para descender por directorios, el «for» del bash es muy puñetero, es
mejor emplear «find» desde el principio:

$ for i in /tmp/bindings; do echo $i; done
/tmp/bindings

...y esto que el directorio está lleno.

Por otra parte, sería «;done» en lugar de «done;» :)

-- 
Alberto