нереально, спасибо, да, хорошее исправление, а то после запятой не сортировал, точнее брал для сортировки только целую часть
28.09.2011, 17:41, "Denis Evdokimov" <[email protected]>: > Николай, у вас небольшая неточность вот в этом месте > map { [ $_, /([TMGKk])/, /(\d+)/ ] } > стоит использовать > map { [ $_, /([TMGKk])/, /(\d+(:?\.\d+)?)/ ] } > > du -h |perl -e '%byte_order = ( T => -4, G => -3, M => -2, K => -1, k > => -1 ); print map { $_->[0] } sort { $byte_order{$a->[1]} <=> > $byte_order{$b->[1]} || $b->[2] <=> $a->[2] } map { [ $_, /([TMGKk])/, > /(\d+)/ ] } <>' | head | awk '{print $1}' > 48G > 22G > 21G > 12G > 11G > 9.7G > 8.1G > 8.1G > 8.6G > 8.4G > > du -h |perl -e '%byte_order = ( T => -4, G => -3, M => -2, K => -1, k > => -1 ); print map { $_->[0] } sort { $byte_order{$a->[1]} <=> > $byte_order{$b->[1]} || $b->[2] <=> $a->[2] } map { [ $_, /([TMGKk])/, > /(\d+(:?\.\d+)?)/ ] } <>' | head | awk '{print $1}' > 48G > 22G > 21G > 12G > 11G > 9.7G > 8.6G > 8.4G > 8.1G > 8.1G > P.S. Есть ещё несколько мыслей, напишу их позже, сейчас много работы. > > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org -- Nikolay Mishin -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
