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

Question

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

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

但如何indentify一个目录存在与否？

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。