Отличная разминка для мозга ))))
Дмитрий, отличный вариант.
Он натолкнул меня на ещё более короткий
du -h | perl -e'print
map{$_->[1]}sort{$b->[0]<=>$a->[0]}map{($c,$d)=/([\d.]+)(\w)/;$d=~tr/kKMGT/00123/;[$c*1024**$d,$_]}<>'
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
