Alex Farber <alex@kawo2.rwth-aachen.de> wrote:
AF>Bulat Ziganshin wrote:
>> Tuesday September 14 1999, Michail Novikov writes to All:
>> MN> Люди помогите отсортировать массив, я тут пузырьковым методом
>> MN> изголяюсь. Hужен еффективный метод !!!
>>
>> sort @a
AF>Это не самый эффективный ;-)
AF>perl -e '@a = qw (100 20 3 4 5); print join q(, ), sort @a'
AF>100, 20, 3, 4, 5
Маны читать надо.
perl -e '@a = qw (100 20 3 4 5); print join q(, ), sort {$a<=>$b} @a
3, 4, 5, 20, 100
Ты еще скажи что по русским буквам сортирует неправильно:
perl -e '@a = qw (юлий август цезарь калигула); print join
q(, ), sort @a;print "\n"'
юлий, август, цезарь, калигула
perl -e 'use locale;@a = qw (юлий август цезарь калигула);
print join q(, ), sort @a;print "\n"'
август, калигула, цезарь, юлий
--------------------------------------------------
Victor Wagner vitus@ice.ru
Programmer Office:7-(095)-203-51-19
Institute for Commerce Home: 7-(095)-135-46-61
Engineering http://www.ice.ru/~vitus
-- end of forwarded message --
--
С тем, что не помешает никогда,
Kittle