#!/bin/sh
# topdu -- du -h for top-level directoies
du . | \
sed -rn '/^[0123456789]+[[:space:]]+\.\/*[^\/]*$/p' | \
sort -n | \
awk 'BEGIN { FS = "\t" } {
dsize = $1 "K";
if($1 > lshift(1, 20)) {
dsize = rshift($1, 20) "G"
} else if($1 > lshift(1, 10)) {
dsize = rshift($1, 10) "M"
};
print dsize "\t" $2
}'
