关于-Perl-中对于句柄的检查

在使用 opendir 时, 需要检查其是否为目录:

my @not_dirs = grep { ! -d } @ARGV;