Perl Hash de subfunciones

Question

Deseo tener un hash que contenga referencias a subfunciones donde pueda llamar esas funciones dependiendo de una variable definida por el usuario, intentaré y daré un ejemplo simplificado de lo que estoy tratando de hacer.

my %colors = (
    vim => setup_vim(), 
    emacs => setup_emacs(), 
) 

$colors{$editor}(arg1, arg2, arg3) 

donde setup_vim() y setup_emacs() habría sub-funciones definidas más adelante en mi archivo y $editor es una variable definida por el usuario (es decir vim o emacs). es posible? No puedo hacer que funcione o encontrar buena información sobre el tema. Gracias.

(Nota tengo que implementa este momento como un interruptor de trabajo, pero creo que un hash como la anterior, sería más fácil para agregar nuevas entradas a mi código existente)

Answer 1

Ésta es la sintaxis.

my %colors = (
    vim => \&setup_vim, 
    emacs => \&setup_emacs, 
); 

$colors{$editor}(@args) 

Tenga en cuenta que en realidad se puede crear funciones directamente con

my %colors = (
    vim => sub {...}, 
    emacs => sub {...}, 
); 

Y si usted está familiarizado con los cierres, Perl soporta cierres completos para las variables que han sido declarados léxico, que se puede hacer con mi .

Answer 2

Tiene que pasar una referencia a la subrutina que desea llamar al hash.

He aquí un ejemplo:

sub myFunc { 
    print join(' - ', @_); 
} 

my %hash = (key => \&myFunc); 
$hash{key}->(1,2,3); 

Con \ & myFunc a obtener los puntos wich de referencia en la función. Importante es dejar el() de distancia. O bien, pasarás a través de una referencia al valor de retorno de la función.

Al llamar a la función por referencia, tiene que eliminarla con el operador ->.