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