Как же меня пугает количество топиков про обфуркацию в конфе Perl...<div><br></div><div>Нет ничего плохого в том, чтобы писать всем понятный код.<br><br><div class="gmail_quote">29 сентября 2011 г. 2:31 пользователь Denis Evdokimov <span dir="ltr"><<a href="mailto:evdokimov.denis@gmail.com">evdokimov.denis@gmail.com</a>></span> написал:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Как и обещал, альтернативный вариант<br><br>my $c = 1;<br>my %hum_comp = map {$_, $c*=1024} qw(K M G T P);<br>$hum_comp{''} = 1;<br>
print map $_->[1], sort{$b->[0] <=> $a->[0]} map {/^(\d+(?>\.\d+)?)(\w?)/; [$1*$hum_comp{$2}, $_]} <><br>
<br>и чуть более сжатый<br>du -h | perl -e'%hc=map{$_,$a=$a?$a*1024:1}qw(K M G T);print map $_->[1],sort{$b->[0]<=>$a->[0]}map{/^(\d+(?>\.\d+)?)(\w?)/;[$1*$hc{$2},$_]}<>'<br>
<br>--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
<br></blockquote></div><br></div>