Добрый день 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
