df -k|perl -ne'print join"\t",map{/^\d+$/?($_=$_/1024)<1?p($_*1024)."K +":($_=$_/1024)<1?p($_*1024)."M":p($_)."G":$_}split/\s+/;print"\n";sub + p{sprintf"%.2f",shift}'
CU
Robartes-
Update: Killed two spaces.
In reply to Re: A little golf anyone?
by robartes
in thread A little golf anyone?
by deprecated
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |