<div>Добрый день Moscow-pm</div><div> </div><div>пока получается так</div><div><div>cat du-s</div><div>#!/bin/sh</div><div>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+)/ ] } <>' $*</div></div><div> </div><div>Вопрос - а можно короче или оптимальнеею</div><div>спасибо.</div><div> </div><div>С Уважением Николай Мишин</div>