perl如何获取一个目录中所有文件的大小总和

cooldog

1^# cooldog 发表于 2005-03-27 12:39

该目录可认定为叶目录。
如何获取该目录下所有文件的大小呢?
用telnet->;cmd("ls -l"倒是可以，可是如果文件过多，该办法好像效率太低。
不知各位大虾有没有好建议？

cooldog

2^# cooldog 发表于 2005-03-27 16:30

惭愧，惭愧，du -ks /tmp就可以了。
水平真是太逊啊。

cooldog

3^# cooldog 发表于 2005-03-27 16:31

惭愧，惭愧，du -ks /tmp就可以了。
水平真是太逊啊。

sorrry，点重了。

笨狗

4^# 笨狗发表于 2005-03-28 05:39

stat()和readdir()结合

smzml

5^# smzml 发表于 2006-03-19 10:42

具体怎么用呀？

flw

6^# flw 发表于 2006-03-19 12:32

perl -le 'for $file (<*>){ $ss += -s $file } print $ss'

smzml

7^# smzml 发表于 2006-03-19 16:34

谢谢5楼大哥。但是这样只能统计某个目录下的文件，如果有子目录和子文件，它数不出来呀。
而且，如果文件有几千个，统计效率好象很慢，有没有快一点的办法呀？

apile

8^# apile 发表于 2006-03-20 08:42

写个程序..递回处理就好了......用-d判断是不是目录...

lifeistrue

9^# lifeistrue 发表于 2008-12-12 02:10

这个-s参数是干嘛的？

MMMIX

10^# MMMIX 发表于 2008-12-12 07:58

QUOTE:

原帖由 lifeistrue 于 2008-12-12 02:10 发表
这个-s参数是干嘛的？

perldoc -f -X