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