[Madrid-pm] Perl Best Perversions

[Bruno]

Hola

He visto la página de Victor y
http://taquiones.net/perl/pbp/essential/named_arguments.html me ha
dado un impulso.

<quote>

Por contra, utilizar un hash permite hacer un pequeño truco que a mí
particularmente me gusta mucho, y es el asignar valores por defecto
según se reciben los parámetros:
our %defaults = ( cols => 80, filler => ' ', centered => 0 );

sub rellenar {
    my  %args = ( %defaults, @_ );

}

</quote>

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

#!/usr/bin/perl

use warnings;
use strict;

my %defaults = (ryba => 'lufa');
my $defref = {ryba => 'lufa'};

sub passhash {
    my %args = (%defaults, @_);
    print $args{ryba}, $/;
}

sub passref {
    my $args = { map { $_ => $_[0]->{$_} || $defref->{$_} }
                    (keys %$defref, keys %{$_[0]}) };
    print $args->{ryba}, $/;
}

passhash(ryba => 'pila');
passhash;

passref({ryba => 'pila'});
passref;

Pero este largo map me fastilia :P

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

Saludos, Bruno