Question

How can I find total disk space occupied by a certain user, say located in /home/Mary? What function is available in Perl to know this?

Answer 1

Perl has Filesys::DiskUsage for that. There is just one downside, it doesn’t take the size of the directories while counting. Only the size of the files.

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