Ага, это как жвачка.
Можно еще
> [$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
