当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 3 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : Perl如何显示文件夹内文件数?
帖子发表于 : 2010-11-27 18:38 

注册: 2010-09-08 18:17
帖子: 62
送出感谢: 0 次
接收感谢: 0 次
有文件夹/home/work/tmp Perl如何显示tmp内文件数?并输出结果?


页首
 用户资料  
 
2 楼 
 文章标题 : Re: Perl如何显示文件夹内文件数?
帖子发表于 : 2010-11-28 12:14 
头像

注册: 2008-03-23 0:39
帖子: 770
送出感谢: 0 次
接收感谢: 4
perl -le 'print scalar @{[glob "/path/to/dir/*"]}' :em11


页首
 用户资料  
 
3 楼 
 文章标题 : Re: Perl如何显示文件夹内文件数?
帖子发表于 : 2010-12-06 22:12 

注册: 2006-02-12 19:29
帖子: 512
送出感谢: 1
接收感谢: 0 次
先打开文件夹,再逐一读取验证并计数。
验证的目的是要把子文件夹排除。下面是实验性质的代码(不代表可以实际运行)
代码:
$dir=opendir("your dir name");
while(<$dir>){
      $count ++ if -f $_;
}
closedir($dir);

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


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 3 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 2 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译