Perl:有没有办法以编程方式设置文件测试运算符？ (即-X)

Question

我经常做复杂的文件/目录/符号链接(symbolic link)测试，并且正在编写一个子程序来做到这一点。
例如，而不是if (-x $file)写

my $test = '-x';
if ($x $file)

我可以改变 $x成为 -f -r -e管他呢。
我已经彻底阅读了文件测试文档， https://perldoc.perl.org/functions/-X
并且似乎没有任何技巧可以做到这一点。
我已阅读 File::Find https://perldoc.perl.org/File::Find但是我不想每次搜索时都写一个单独的子程序，这样会使代码很丑很长。
我错过了什么或任何技巧吗？

Answer 1

这是使用调度表的另一种方法:

my $file = 'test.txt';
my %ftest = (
    '-x' => sub {-x $_[0]},
    '-f' => sub {-f $_[0]}
);
my $test = '-x';
if ($ftest{$test}->($file)) {
    say "Executable";
}
else {
    say "Not executable";
}