[Moscow.pm] Get human-readable output from du, sorted by size:

[Akzhan Abdulin]

Как же меня пугает количество топиков про обфуркацию в конфе Perl...

Нет ничего плохого в том, чтобы писать всем понятный код.

29 сентября 2011 г. 2:31 пользователь Denis Evdokimov <
evdokimov.denis на gmail.com> написал:

> Как и обещал, альтернативный вариант
>
> my $c = 1;
> my %hum_comp = map {$_, $c*=1024} qw(K M G T P);
> $hum_comp{''} = 1;
> print map $_->[1], sort{$b->[0] <=> $a->[0]} map {/^(\d+(?>\.\d+)?)(\w?)/;
> [$1*$hum_comp{$2}, $_]} <>
>
> и чуть более сжатый
> 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},$_]}<>'
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>
>
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20110929/c067c18a/attachment.html>