Ага, понятно этим [ $d+$c/1024, $_ ] убрали лишний параметр сортировки и для 20 К будет [0 + 20/1024] или [20*1024**0] 20 умножить на 1024 в степени 0 для 20G [2 + 20/1024] -- по скорости они похожи, мне кажется [20*1024**2] 20 умножить на 1024 в степени 2
29.09.2011, 19:56, "Dmitry Karpich" <[email protected]>: > Ага, это как жвачка. > > Можно еще > >> [$c*1024**$d,$_] > > на > [ $d+$c/1024, $_ ] > поменять, правда я не знаю, что дороже обойдется - умножение + степень или > деление + сложение. > > Ну а на самом деле баловство все это, /usr/local/sbin вполне переживет скрипт > любого размера, даже с копией полного текста двух лицензий сразу :) Да и > поддерживать прощее. > > On Sep 29, 2011, at 6:48 PM, Denis Evdokimov wrote: > >> Отличная разминка для мозга )))) >> Дмитрий, отличный вариант. >> Он натолкнул меня на ещё более короткий >> 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 > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org -- Nikolay Mishin -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
