Как узнать, существует ли каталог в Perl?

Чтобы узнать, существует ли файл перед его использованием, мы можем использовать:

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

Но как определить каталог существует или нет?

Ответы

Ответ 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.