Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: disk space utilization

by gam3 (Curate)
on Apr 08, 2005 at 20:18 UTC ( #446151=note: print w/replies, xml ) Need Help??

in reply to disk space utilization

This may be one of the few cases where awk is the correct solution.
df -P | awk '/^\//{printf("%5s %s\n", $5, $6);}'
df -P | perl -ne 'printf("%5s %s\n", (split(/\s+/, $_))[4, 5])'
If you want to do a lot more formating; then I would write a complete perl program.

use Filesys::Statvfs; open MOUNTED, "</proc/mounts" || die "Could not open /proc/mounted\n"; while (my $mountpoint = <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 <<EOT; path: $path Optimal transfer block size: $bsize Blocks in file system: $blocks Blocks free: $bfree (${\(int $bfree/$blocks*100)} +%) User blocks available: $bavail (${\(int $bavail/$blocks*100 +)}%) Inodes: $files Free inodes: $ffree (${\(int $ffree/$files*100)}% +) EOT }
-- gam3
A picture is worth a thousand words, but takes 200K.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://446151]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2023-09-24 00:48 GMT
Find Nodes?
    Voting Booth?

    No recent polls found