Pourquoi une erreur de syntaxe se produit-elle lorsque je passe un coderef à ce sous-programme Perl prototypé?

Question

Voici le code:

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

Si je tente de l'appeler comme ceci:

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

Je reçois Not enough arguments for MyPackage::function at x.pl line 5, near ""whatever" { ". Comment puis-je l'appeler sans avoir à ajouter sub devant le bloc de code?

Answer 1

Mettez l'argument coderef premier:

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

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

Voir la page de manuel perlsub, qui se lit en partie:

Un "et" nécessite un sous-programme anonyme, qui, si elle est adoptée comme premier argument , ne nécessite pas le mot-clé "sub" ou une virgule suivante.

Answer 2

Ici, & $ est variable spéciale qui est utilisée pour correspondre au modèle exact d'un Perl. (vous l'avez utilisé à tort dans votre contexte) $ `est utilisé pour faire correspondre la chaîne avant le modèle donné. $ $ 'est utilisé pour faire correspondre la chaîne après le modèle donné.