¿Por qué obtengo un error de sintaxis cuando paso un coderef a esta subrutina de Perl prototipada?

Question

Este es el código:

sub function($&) { 
    my $param1 = shift; 
    my $code = shift; 
    # do something with $param1 and $code 
} 

Si trato de llamarlo así:

function("whatever") { 
    print "i'm inside the coderef\n"; 
} 

consigo Not enough arguments for MyPackage::function at x.pl line 5, near ""whatever" { ". ¿Cómo puedo llamarlo sin tener que agregar sub al frente del bloque de código?

Answer 1

Ponga el argumento coderef primera:

sub function (&$) { 
    my $code = shift; 
    my $param1 = shift; 
    # do something with $param1 and $code 
} 

function { print "i'm inside the coderef\n" } "whatever"; 

Consulte la página del manual perlsub, que dice en parte:

Una "y" requiere una subrutina anónima, que, si se aprueba como primer argumento , no requiere la palabra clave "sub" o una coma posterior.

Answer 2

Aquí, $ & es una variable especial de Perl que se utiliza para que coincida con el patrón exacto. (lo ha usado incorrectamente en su contexto) $ `se usa para hacer coincidir la cadena antes del patrón dado. $ 'se usa para hacer coincidir la cadena después del patrón dado.