Perl实现删除Windows下的图片缓存缩略图Thumbs.db

                     }
                 }
             }
             closedir($handle);
         }
     }
 
     return $filecount;
}
 
my $count = parse_env $path;
my $str = "删除文件的总数：".$count;
 
print $str;

控制台上输出的结果：