Hola,
> use 5.010;
> my $resultado = 0;
> func(\$resultado);
> say $resultado;
>
> sub func {
> my ($res_ref) = @_;
>
> $$res_ref = 42; # cálculo de $foo;
>
> return;
> }
Sería cuestión de medirlo, pero creo que el problema es que el return
se toma su tiempo de todas formas, aunque no devuelvas nada, devuelvas
undef o lo que sea. He logrado mejorar tiempos cambiando subrutinas
por bloques que se le pasan a map, pero nada que se haga con una
subrutina hace que vaya más rápido.
Saludos, y gracias en todo caso.
--
JJ
_______________________________________________
Madrid-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/madrid-pm
