¿Cómo ver si existe un directorio o no en Perl?

Question

para ver si existe un archivo antes de usarlo, podemos utilizar:

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

Pero cómo indentify existe un directorio o no?

Answer 1

Uso -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 
} 

Como nota, -e no distingue entre archivos y directorios. Para verificar si existe algo y es un archivo simple, use -f.