Mesurer les espaces disques

Voici un tout petit module très simple et qui répond parfaitement à cette tâche : Filesys::DiskFree.

use Filesys::DiskFree;

my $handle = new Filesys::DiskFree();
$handle -> df;

print "/ is free has " . $handle -> avail("/") ." bytes free\n";
print "/ you use " . $handle -> used("/") ." bytes on /\n";