Где я делаю ошибку в этом регулярном выражении?

Question

Я пытаюсь отличить, используя регулярные выражения, если readdir возвращает файл или папку.

Это мой код:

opendir($dh, $_[0]) || die "Can't open folder!"; 
while(($filename = readdir($dh))){ 
    if ($filename =~ /..*\...*/) {...}} 

Идея этого регулярного выражения является то, что он требует, по крайней мере один символ до и после точки. Я тестировал это выражение (без «/» в начале и в конце) в онлайн-тестировщике регулярных выражений perl, и он работал, однако на самом деле условие всегда возвращает false.

Что я делаю неправильно? Спасибо

Answer 1

Если ваши файлы не соответствуют специальному соглашению, вы не можете различать файлы и папки, просто просматривая имена. Вы можете использовать -d, чтобы проверить, является ли путь папкой (см. here).