[Madrid-pm] Perl Best Perversions

[Victor Moral]

El Viernes, 16 de Marzo de 2007 10:50, Bruno escribió:

> Pues, como hacerlo con refs... aqui es la primera idea:

	Efectivamente el map es un pelín largo y quita legilibilidad. En realidad si 
se trata de una referencia a un hash se puede intentar así:

	sub passref {
		my $arg_ref = shift;
		my %args = ( %defaults, %{ $arg_ref } );

	}

	Aunque Conway propone esta otra forma:

	sub passref {
		my $arg_ref = shift;
		my %args = ref $arg_ref eq 'HASH' ? ( %defaults, %{ $arg_ref } ) :
				%defaults;
	}

	Es decir, esperamos una referencia a un hash y si no existe simplemente la 
ignoramos sin arriesgarnos a una excepción del tipo "Odd number ...".

> Y tambien podría molestar este psicópato, que sepa, donde vivo :D

	Esto, criatura, no acabo de entenderlo. :-)

Saludos 
-- 
 --------
 Víctor Moral <victor en taquiones.net>
 http://www.taquiones.net/victor.html
 Usuario Linux nº 139246
 Clave pública 0x376B5EA7 en pgp.rediris.es

------------ próxima parte ------------
Se ha borrado un mensaje que no está en formato texto plano...
Nombre     : no disponible
Tipo       : application/pgp-signature
Tamaño     : 189 bytes
Descripción: no disponible
Url        : http://mail.pm.org/pipermail/madrid-pm/attachments/20070316/fd7a1810/attachment.bin