А может стоит развернутее и с комментариями? Это уже сложно поддерживать.
28 сентября 2011 г. 13:12 пользователь Nikolay Mishin <[email protected]> написал: > Добрый день Moscow-pm > > пока получается так > cat du-s > #!/bin/sh > du -h |perl -e '%bo = ( T => -4, G => -3, M => -2, K => -1, k => -1 ); print > map { $_->[0] } sort { $bo{$a->[1]} <=> $bo{$b->[1]} || $b->[2] <=> $a->[2] > } map { [ $_, /([TMGKk])/, /(\d+)/ ] } <>' $* > > Вопрос - а можно короче или оптимальнеею > спасибо. > > С Уважением Николай Мишин > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org > > -- С уважением, Никита Зубков тел: +7 (915) 082-76-80 -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
