perl - 测试文件是否不是Perl中的目录

Question

我知道您可以使用以下方法测试文件是否为目录:

if(-d $filename)

但是如何测试它是否不是目录？

Answer 1

您是否想尝试以下方法？

if (! -d $filename) ...

毕竟 -d的结果是可以被视为 bool 值的值，因此逻辑非运算符 !可以正常工作。

而且，如果您要处理的内容比“不是目录”更具体，请参阅 here。有很多东西不是目录，有时将它们视为常规文件是没有意义的。

请记住，这是假设您已经验证了文件名是否存在。如果对不存在的文件名执行 ! -d，它将返回true。

关于是否将不存在的事物视为“非目录”是一个哲学问题，但是，如果要确保它也存在，则可以将 ! -d与 -e结合使用，例如:

if ((-e $filename) && (! -d $filename)) ...