如何忽略Perl的readdir中的单点和双点条目？

Question

从这里开始跟进: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;}而不同的是变化的,而循环的开始......但我不断收到中止"由于编译错误".

我们如何获得单点和双点条目？

Answer 1

要测试字符串,您必须使用eq:

if($file eq "." || $file eq ".."){ next;}

要么:

next if $file =~ /^\.\.?$/;