Wie kann ich die Elemente in einer Perl-Array-Referenz als separate Argumente an eine Subroutine übergeben?

Question

Ich habe eine Liste, die Argumente enthält, die ich an eine Funktion übergeben möchte. Wie rufe ich diese Funktion an?

Zum Beispiel stelle ich mir diese Funktion hatte:

sub foo { 
    my ($arg0, $arg1, $arg2) = @_; 
    print "$arg0 $arg1 $arg2\n"; 
} 

Und lassen Sie uns sagen, ich habe:

my $args = [ "la", "di", "da" ]; 

Wie rufe ich foo ohne foo($$args[0], $$args[1], $$args[2]) zu schreiben?

Answer 1

Dies sollte es tun:

foo(@$args) 

Das ist nicht wirklich eine apply Funktion ist. Diese Syntax dereferenziert lediglich einen Array-Bezug auf ein einfaches Array. man perlref erzählt Ihnen mehr über Referenzen.

Answer 2

Try this:

foo(@$args); 

Answer 3

Sie dereferenzieren eine Array-Referenz, indem Sie @ davor stecken.

foo(@$args); 

Oder wenn Sie mehr explizit sein wollen:

foo(@{ $args }); 

Answer 4

foo(@$args); 

Oder, wenn Sie einen Verweis auf foo haben:

my $func = \&foo; 
... 
$func->(@$args); 

Answer 5

Es ist ganz einfach. foo (@ {$ args})