-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
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;
Pero claro, si es una tarea en perl, no te sirve sino la lógica.
Saludos.
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org/
iEYEARECAAYFAk1Bor0ACgkQrV6y1n/Ylbx6XACfetHWFDhtUEKSLgvVeFO4GUKg
k+UAnjVxZwo4PGoEVRVir76wQFSv+fZQ
=cbwA
-----END PGP SIGNATURE-----
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
Archive: http://lists.debian.org/[email protected]
