Как принять массив выходных параметров и скаляр в perl?

Question

У меня есть функция, где я хочу проверить, существует ли путь, и если да, добавьте это в массив. Вот что я пробовал:

# If a path exists, adds the canonical version of that path to an array 
sub AddPathCandidate { 
    my (@$target, $path) = $_; 
    die ('path needed') unless defined($path); 
    $path = File::Spec->canonpath($path); 
    if (-e $path) { 
     push(@{$target}, $path); 
    } 
} 

где звонящий выглядит следующим образом:

my @exampleDirs =(); 
AddPathCandidate(\@exampleDirs, $inDir . 'a'); 
AddPathCandidate(\@exampleDirs, $inDir . "../b/a/$arch"); 
AddPathCandidate(\@exampleDirs, $inDir . "../../b/a/$arch"); 

Но "умереть" заявление всегда выполняется; второй параметр AddPathCandidate не получается каким-то образом.

Является ли то, что я пытаюсь сделать здесь, даже возможно, или есть еще один способ «perl-ish» для этого?

Answer 1

Объявите переменную как $target при распаковке ваши аргументы, и распаковать из @_:

my ($target, $path) = @_; 
    ^    ^^