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

Question

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

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

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

Answer 1

使用-d（full list of file tests）

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。