Следуя отсюда:Perl Imgsize не работает в цикле? У меня есть другой вопрос - как я не позволю Perl перечислять записи с одинарной и двойной точкой, когда он читает файлы в каталоге?

Как и в связанном вопросе выше, мой вывод в цикл while (while ($file = readdir($dh))) как то так:

.
..
file1.jpg
file2.jpg 
file3.jpg 
file4.jpg 
file5.jpg 

И это создает проблемы, потому что яУ меня также есть счетчик, который считает мои файлы. А также. а также.. дон»Я считаю, что файлы в моих каталогах дают больше файлов, чем есть на самом деле.

я добавилif($file == "." || $file == ".."){ continue;} а такжеif ($file ~ /^\./ or $file ~ /^\.\./) {continue;} и разные варианты этого до начала цикла while ... но я продолжаю прерывать работу "из-за ошибок компиляции ".

Как мы можем получить записи с одинарной и двойной точкой?