我有一个函数,我想检查路径是否存在,如果存在,将其添加到数组.这是我试过的：
# 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方式”来实现这一目标？
解决方法
在解压缩参数时将变量声明为$target,并从@_解压缩：
my ($target,$path) = @_;
^ ^^