А не проще ли так? du -k | sort -n | tail
Вполне себе человеко-читаемый вывод, не замороченно, и сразу видно кто место "схавал". 28 сентября 2011 г. 12:23 пользователь Nikita Zubkov <[email protected]> написал: > А может стоит развернутее и с комментариями? Это уже сложно поддерживать. > > 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 > -- Sincerely yours, Oleg Kostyuk (CUB-UANIC) -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
