如何找出某个用户占用的总磁盘空间？

Question

如何找到某个用户占用的总磁盘空间,比如位于/home/Mary？Perl有什么功能可以知道这个？

Answer 1

Perl就是Filesys::DiskUsage这样的.只有一个缺点,它在计算时不占用目录的大小.只有文件的大小.

use Filesys::DiskUsage qw/du/;
$size = du ( { 'sector-size' => 1024 } , { 'human-readable' => 1 } , qw%/home/Mary% );
print "Total size: $size\n";