in reply to df -mb
use strict; my $args = join(" ", @ARGV); open(D, "df -k $args |") or die "Unable to run df! $!"; my @line = split(" ", <D>); exit unless(defined(@line)); $line[1] = "mbytes"; $line[3] = "avail"; printf "%-20s %7s %7s %7s %8s %s\n", @line; while(@line = split(" ", <D>)) { for(1,2,3) { $line[$_] = $line[$_] >> 10; } printf "%-20s %7s %7s %7s %8s %s\n", @line; } close(D);
|
|---|