df -P | awk '/^\//{printf("%5s %s\n", $5, $6);}'
####
df -P | perl -ne 'printf("%5s %s\n", (split(/\s+/, $_))[4, 5])'
##
##
use Filesys::Statvfs;
open MOUNTED, ") {
my ($bsize, $blocks, $bfree, $bavail, $files, $ffree, $namelen);
my $path = (split(/\s+/, $mountpoint))[1];
if (1) {
($ftype, $bsize, $blocks, $bfree, $files,
$ffree, $bavail) = statvfs("/tmp");
} else { # This is not very portable
my $buf = "\0"x64;
syscall(99, $path, $buf) == 0 or die "Bad mountpoint $path\n";
($bsize, $blocks, $bfree, $bavail, $files, $ffree, $namelen)
= unpack "x4 L6 x8 L", $buf;
}
next unless $blocks;
print <