Comment faire pour voir si un répertoire existe ou pas en Perl?

Question

Pour voir si un fichier existe avant de l'utiliser, on peut utiliser:

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

Mais comment identifier un répertoire existe ou pas?

Answer 1

Utiliser -d (liste complète des fichiers de 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
}

Comme une note, -e ne fait pas la distinction entre les fichiers et les répertoires. Pour vérifier si quelque chose existe et est un fichier brut, utilisez -f.