Следуя отсюда: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 ... но я продолжаю прерывать работу "из-за ошибок компиляции".

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