[Julian10]

Estoy trabajando con Perl y me gustaría saber de que manera puedo escribir una función que acepte parametros así como lo hace la función map de perl.

[Nieves Nieto]

La única forma que tienes para realizar esto es usando un sub, sería algo de la siguiente forma:

sub mi_func_tipo_map (&@) {
    my ($func, @values) = @_;
    my @ret;
    for (@values) {
	    push @ret, $func->($_);
    }
    return @ret;
}
my @values = mi_func_tipo_map  { $_ + 1 } qw(1 2 3 4);
print "@values";  # 2 3 4 5

[Julian10]

Gracias