Интересные решения Perl. Вопросы и ответы

Как правильно упорядочить массив чисел с помощью sort?

Допустим, имеем массив:

my @a = (1, 2, 7, 9, 10, 12, 15, 21);

Если выполнить @a = sort(@a), то результат будет не тот, что мы ожидали.

Массив @a будет содержать (1, 10, 12, 15, 2, 21, 7, 9).

Используйте @a = sort({$a <=> $b} @a)

Теперь @a содержит (1, 2, 7, 9, 10, 12, 15, 21).

Чтобы упорядочить массив в обратном порядке, либо поменяйте местами $a и $b, либо преобразуйте массив через reverse:

@a = reverse(@a);

Опубликовано: 23 октября 2005 года.