Всю описанную здесь процедуру можно записать короче и без использования временных массивов:

Листинг 6

# Оптимизированная сортировка строк по алфавиту без учёта регистра; короткая форма без временных массивов

@sorted =

    map {$_->[1]}

    sort {$a->[0] cmp $b->[0]}

    map {[uc, $_]} @unsorted;

Эта конструкция известна как преобразование Рэндала Шварца[8].

Последний код выглядит гораздо более изящно, но иногда уместнее использовать первый вариант (листинг 5) или некий гибридный подход. Например, это полезно, когда критерий сортировки используется многократно, или в тех случаях, когда целесообразно рассчитывать сразу несколько критериев.

В следующем примере мы создаём два сортированных без учёта регистра списка: по алфавиту и в обратном алфавитном порядке. При этом uc вызывается только один раз для каждого элемента.

Листинг 7

# Создание двух сортированных без учёта регистра списков; вдвойне оптимизированная реализация

@temp_unsorted = map {[uc, $_]} @unsorted;

@sorted_a2z = map {$_->[1]}

    sort {$a->[0] cmp $b->[0]} @temp_unsorted;

@sorted_z2a = map {$_->[1]}

    sort {$b->[0] cmp $a->[0]} @temp_unsorted;

Помимо выигрыша, который дала бы оптимизация каждой отдельной сортировки, здесь мы получили дополнительный выигрыш. Если просто дважды применить классическое преобразование Рэндала Шварца, то на одну сортировку потребовалось бы два вызова map. Здесь же на каждую сортировку приходится полтора вызова map (три map на два sort). Причём реальный выигрыш ещё больше, так как дважды выполняется процедура map, восстанавливающая данные, а процедура расчёта критерия сортировки (более ресурсоёмкая, чем восстановление данных) выполняется всего один раз на две сортировки. То есть для каждой из двух сортировок на один элемент понадобилась половина, если можно так сказать, вызова uc. Впечатляющий результат?! Особенно, если вспомнить, что если бы мы просто дважды использовали неоптимизированный код, аналогичный приведённому в листинге 4, применительно к массиву из миллиона строк, то каждая строка была бы преобразована к верхнему регистру без малого сто раз (более 86 раз).