Простой вариант без оптимизации может выглядеть так:

Листинг 9

# Сортировка списка версий без оптимизации

@sorted=sort {

    my ($ap, $as)=($a=~m/(d+).(d+)/);

    my ($bp, $bs)=($b=~m/(d+).(d+)/);

    $ap <=> $bp || $as <=> $bs; } @unsorted;

Для сравнения двух строк мы выделяем по два числа из каждого сравниваемого элемента сортируемого списка и производим сравнение этих чисел. Версия и подверсия, выделенные из элемента $a, помещаются в переменные $ap и $as соответственно; элемент $b обрабатывается аналогично. Если номера версий равны, то сравниваются подверсии[12].

Вариант с нашей оптимизацией будет выглядеть так:

Листинг 10

# Сортировка списка версий с оптимизацией

@sorted=map  { $_->[0] }

           sort { $a->[1] <=> $b->[1] ||

                 $a->[2] <=> $b->[2]; }

           map  { m/(d+).(d+)/;

                 [$_, $1, $2]; } @unsorted;

Этим примером я хотел продемонстрировать, что вспомогательный массив (создаваемый вторым по тексту оператором map) может содержать указатели не только на двухэлементные анонимные массивы. В нашем случае критерий сортировки достаточно сложен и мы создаём трёхэлементные анонимные массивы: нулевой элемент – оригинальная строка, первый – номер версии, второй – номер подверсии.

С точки зрения расхода памяти такой подход достаточно расточителен, тем не менее он часто бывает оправдан, когда критерий сравнения достаточно сложен.