我在 Perl sub findfiles 中有一个子例程,我必须传递一个带引号的值“*/*”作为输入参数,因为它在没有引用的情况下抱怨,另一方面在我的子例程中我需要它不被引用(可能是!)问题是当我打印要检查的值时,我没有看到任何引用或任何东西,但可能有一些特殊的隐藏字符或我不知道的东西?当我直接使用 */* 时,我的代码可以正常工作,但当我将它作为输入参数传递时,我的代码不能正常工作你知道吗?
sub findfiles {
$dirname=$_[0];
my @temp = grep {-f} <$dirname>;
print @temp;
}
&findfiles("*/*"); doesnot work
but
sub findfiles {
$dirname=$_[0];
my @temp = grep {-f} <*/*>;
print @temp;
}
做它的工作