Perl如何显示文件夹内文件数？

[liucheng1513]

有文件夹/home/work/tmp Perl如何显示tmp内文件数？并输出结果？

[ChenFengyuan]

perl -le 'print scalar @{[glob "/path/to/dir/*"]}'

[tandkzy]

先打开文件夹，再逐一读取验证并计数。
验证的目的是要把子文件夹排除。下面是实验性质的代码（不代表可以实际运行）

代码： 全选

$dir=opendir("your dir name");
while(<$dir>){
      $count ++ if -f $_;
}
closedir($dir);

改动测试条件，你可以统计文件夹里的其它类型。例如子文件夹，或者所有文件占用的磁盘空间之和等等。