كيف يمكنني تمرير العناصر في مرجع صفيف بيرل كوسائط منفصلة إلى روتين فرعي؟

Question

لدي قائمة تحتوي على حجج أريد نقلها إلى وظيفة. كيف أسمي هذه الوظيفة؟

على سبيل المثال ، تخيل أن لدي هذه الوظيفة:

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

ودعنا نقول لدي:

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

كيف أتصل foo دون كتابة foo($$args[0], $$args[1], $$args[2])?

Answer 1

هذا يجب أن يفعل ذلك:

foo(@$args)

هذا ليس في الواقع apply وظيفة. هذا بناء الجملة مجرد إزالة مرجع الصفيف مرة أخرى إلى صفيف عادي. رجل بيرلف يخبرك بالمزيد عن الأوقات.

Answer 2

أنت مرجع صفيف عن طريق الالتصاق @ امامها.

foo( @$args );

أو إذا كنت تريد أن تكون أكثر وضوحًا:

foo( @{ $args } );

Answer 3

جرب هذا:

foo(@$args);

Answer 4

foo(@$args);

أو ، إذا كان لديك إشارة إلى foo:

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

Answer 5

انه سهل. foo ({{$ args})