Bu prototipli Perl alt yordamına coderef iletirken neden bir sözdizimi hatası alıyorum?

Question

Bu kod:

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

Bunu şöyle çağırırsam:

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

Not enough arguments for MyPackage::function at x.pl line 5, near ""whatever" { " olsun. Kod bloğunun önüne sub eklemeden nasıl arayabilirim?

Answer 1

ilk coderef argüman koyun:

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

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

kısmı şöyledir perlsub adam sayfasını bakınız:

Bir "&" anonim bir alt yordam, gerektiren, ilk argümanı olarak eğer , , "alt" anahtar sözcüğü veya sonraki virgül gerektirmez.

Answer 2

Burada, $ &, Perl'in tam deseni eşleştirmek için kullanılan özel değişkenidir. (bağlamınızda yanlış kullandınız) $ `, verilen desenden önceki dizeyle eşleşmek için kullanılır. $ ', verilen şablondan sonra dizeyle eşleşmek için kullanılır.