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

Python/PHP/Perl 开发与设计
回复
liucheng1513
帖子: 62
注册时间: 2010-09-08 18:17
送出感谢: 0
接收感谢: 0

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

#1

帖子 liucheng1513 » 2010-11-27 18:38

有文件夹/home/work/tmp Perl如何显示tmp内文件数?并输出结果?
头像
ChenFengyuan
帖子: 770
注册时间: 2008-03-23 0:39
送出感谢: 0
接收感谢: 4 次

Re: Perl如何显示文件夹内文件数?

#2

帖子 ChenFengyuan » 2010-11-28 12:14

perl -le 'print scalar @{[glob "/path/to/dir/*"]}' :em11
tandkzy
帖子: 512
注册时间: 2006-02-12 19:29
送出感谢: 1 次
接收感谢: 0

Re: Perl如何显示文件夹内文件数?

#3

帖子 tandkzy » 2010-12-06 22:12

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

代码: 全选

$dir=opendir("your dir name");
while(<$dir>){
      $count ++ if -f $_;
}
closedir($dir);
改动测试条件,你可以统计文件夹里的其它类型。例如子文件夹,或者所有文件占用的磁盘空间之和等等。
回复

回到 “Python/Php/Perl”