Select Code to Download

du | sort -nr

du -B1 | sort -nr | perl -e '@h=qw(b K M G);for(<>){($s,@f)=split/\s+/
+;$e=3;$e-- while(1024**$e>$s);$v=($s/(1024**$e));printf "%-8s%s\n",sp
+rintf($v>=100?"%d%s":"%.1f%s",$v,$h[$e]),@f;}'

du -h | perl -e 'sub h{%h=(K=>10,M=>20,G=>30);($n,$u)=shift=~/([0-9.]+
+)(\D)/;return $n*2**$h{$u}}print sort{h($b)<=>h($a)}<>;'

4.4M    .
3.6M    ./colors
...
128K    ./autoload
100K    ./syntax
100K    ./doc

perl -e'%h=map{/.\s/;99**(ord$&&7)-$`,$_}`du -h`;die@h{sort%h}'