如何在Perl中查看目录是否存在？

Question

要在使用文件之前查看文件是否存在,我们可以使用:

if (-e "filename.cgi")
{
 #proceed with your code
} 

但是如何识别目录是否存在？

Answer 1

使用-d(文件测试的完整列表)

if (-d "cgi-bin") {
    # directory called cgi-bin exists
}
elsif (-e "cgi-bin") {
    # cgi-bin exists but is not a directory
}
else {
    # nothing called cgi-bin exists
}

作为注释,-e不区分文件和目录.要检查是否存在某些内容并且是纯文件,请使用-f.