4.9. Присоединение массива 131

ния. Ключи с ассоциированным значением 1 встречаются лишь в одном из двух массивов и заносятся в массив разности. В отличие от исходного решения, порядок элементов в выходных массивах не совпадает с порядком элементов входных массивов.

В последнем решении, как и в предыдущем, используется всего один хэш с количеством экземпляров каждого элемента Однако на этот раз реализация построена на массиве в блоке @{ }.

Мы вычисляем не простую, а симметричную разность. Эти термины происходят из теории множеств. Симметричная разность представляет собой набор всех элементов, являющихся членами либо @А, либо @В, но не обоих сразу. Простая разность - набор всех элементов @А, отсутствующих в @В (см. рецепт 4,7).

> Смотри также-

Аналогичное применение хэшей продемонстрировано в рецептах 4.7 и 4.8.

4.9. Присоединение массива

Проблема

Требуется объединить два массива, дописав все элементы одного из них в конец другого.

Решение

Воспользуйтесь функцией push:

# push

push((aARRAY1, (aARRAY2),

Комментарий

Функция push оптимизирована для записи списка в конец массива. Два массива также можно объединить посредством сглаживания (flattening) списков Perl, однако в этом случае выполняется намного больше операций копирования, чем при использовании push:

(S)ARRAY1 = (©ARRAYI, (aARRAY2)

Ниже показан пример практического использования push-

(araembers = ( Time Flies ), ©initiates = ( An , Arrow ), push(@merabers, ©initiates),

# ©members содержит элементы ( Time , Flies , An , Arrow )

Если содержимое одного массива требуется вставить в середину другого, воспользуйтесь функцией splice:

splice(@members, 2, О, Like , ©initiates), print @members\n , splice(@members, 0, 1, Fruit ),

> Смотри также-•

Описание функций splice и push вpeiifunc(l); раздел «List Value Constructors* peiidata(l).

4.10. Обращение массива

Проблема

Требуется обратить массив (то есть переставить элементы в противоположном порядке).

Решение

Воспользуйтесь функцией reverse:

# Обращение ©ARRAY дает ©REVERSED ©REVERSED = reverse ©ARRAY,

Также можно воспользоваться циклом for:

for ($1 = SSARRAY, $1 >= О Si--) { П Сделать что-то с $ARRAY[Si]

Комментарий

Настоящее обращение списка выполняется функцией reverse; цикл for просто перебирает элементы в обратном порядке. Если обращенная копия списка не нужна, щнсл for экономит память и время.

Если функция reverse используется для обрапдеиия только что отсортированного списка, логичнее будет сразу отсортировать список в нужном порядке. Например:

# Два шага сортировка, затем обращение ©ascending = sort { $а crap $b } ©users, ©descending = reverse ©ascending,

# Один шаг сортировка с обратным сравнением ©descending = sort { $b crap $a } ©users,

> Смотри также-

Описание функции reverse вpeiifunc(l). Она используется в рецепте 1.6.

splice(@rae(Tibers, -2, 2, А , Banana ), print isxtiembersXn ,

Результат выглядит так:

Time Flies Like An Arrow Fruit Flies Like A Banana

4.11. Обработка нескольких элементов массива 133

4.11. Обработка нескольких элементов массива

Проблема

Требуется удалить сразу несколько элементов в начале или конце массива.

Решение

Воспользуйтесь функцией splice;

# Удалить $N элементов с начала ©ARRAY (shift $N) ©FRONT = splice(@ARRAY, 0, $N),

# Удалить $N элементов с конца массива (pop $N) ©END = splice(@ARRAY, -$N),

Комментарий

Часто бывает удобно оформить эти операции в виде функций:

sub shift2 (\@) {

return splice(@{$ [0]}, О, 2),

sub рор2 (\@) {

return splice(@{$ [0]}, О, -2),

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

©friends = qw(Peter Paul Mary Jim Tim), ($this $that) = shift2(pfriends),

# $this содержит Peter, $that - Paul,

# a ©friends - Mary, Jim и Tira

©beverages = qw(Dew Jolt Cola Sprite Fresca), ©pair = pop2(@beverages),

# $pair[0] содержит $sprite, $pair[1] - Fresca,

# a ©beverages - (Dew, Jolt, Cola)

Функция splice возвращает элементы, удаленные из массива, поэтому shif t2 заменяет первые два элемента @ARRAY ничем (то есть удаляет их) и возвращает два удаленных элемента. Функция рор2 удаляет и возвращает два последних элемента.

В качестве аргументов этим функциям передается ссылка на массив - это сделано для того, чтобы они лучше имитировали встроенные функции shift и pop. При вызове ссылка не передается явно, с использованием символа \. Вместо этого компилятор, встречая прототип со ссылкой на массив, организует передачу массива по ссылке. Преимущества такого подхода - эффективность, наглядность и проверка параметров на стадии компиляции. Недостаток - передаваемый