Linda manera de cerrar varios archivos...

Ernesto Hernandez-Novich emhn at telcel.net.ve
Fri Aug 3 14:53:33 CDT 2001


Hoy aprendí ésta linda manera de cerrar muchos archivos (cortesía
de Randall Schwartz en Perl Monks).

¿Cuántas veces tienen un programa con muchos archivos abiertos a la vez
y tienen que cerrarlos al final? Típico caso...

open FOO "foo.txt";
open BAR ">bar.txt";
open BAZ "baz.txt";
open QUX ">qux.txt";
...
close FOO;
close BAR;
close BAZ;
close QUX;

Y como buenos programadores responsables tienen sendos 'or die' para
cada close...

close FOO or die "No puedo cerrar FOO $!\n";
close BAR or die "No puedo cerrar BAR $!\n";
close BAZ or die "No puedo cerrar BAZ $!\n";
close QUX or die "No puedo cerrar QUX $!\n";

¡Terrible! ¿Qué tal ésto?

close $_ or die "No puedo cerrar $_ $!\n" for qw/FOO BAR BAZ QUX/;

Muuuuy elegante.
-- 
Ernesto Hernández-Novich - Running Linux 2.4.5 i686 - Unix: Live free or die!
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCS/E d+(++) s+: a C+++$ UBLAVHIOSC*++++$ P++++$ L+++$ E- W+ N++ o K++ w--- O-
M- V PS+ PE Y+ PGP>++ t+ 5 X+ R* tv+ b++ DI+++$ D++ G++ e++ h r++ y+
-----END GEEK CODE BLOCK-----

------------------------------------------------------------------------
Enviar e-mail a <majordomo at pm.org> colocando en el cuerpo:
"UNSUBSCRIBE caracas-pm-list" para desuscribirse.
"INFO caracas-pm-list" para conocer las reglas de etiqueta.
------------------------------------------------------------------------



More information about the caracas-pm mailing list