4.3. Изменение размера массива 119

The list is: recycle tired, old phrases; ponder

big, happy thoughts; and sleep and dream peacefully.

Как видите, мы отвергаем порочную практику исключения последней запято11 из списка, что нередко приводит к появлению двусмысленностей.

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

Описание функции grep вperlfunc{l); описание тернарного оператора выбора вpeiiop(l). Синтаксис вложенных списков рассматривается в рецепте 11.1.

4.3. Изменение размера массива

Проблема

Требуется увеличить или уменьшить размер массива. Допустим, у вас имеется массив работников, отсортированный по размерам оклада, и вы хотите ограничить его пятью самыми высокооплачиваемыми работникам п. Другой при.мер - если окончательный раз.мер массива точно известен, намного эффективнее выделить всю память сразу вместо того, чтобы увеличивать массив постеиеп]ю, добавляя элементы в конец.

Решение

Присвойте значение $#ARRAY:

и Увеличить или уменьшить ©ARRAY $#ARRAY = $NEW LAST ELEMENT INDEX NUMBER

Присваивание элементу, находящемуся за koihiom массива, автоматически увеличивает массив:

$ARRAY[$NEW LAST ELEMENT INDEX NUMBER] = $VALUE;

Комментарий

$#ARRAY - последний допустимый индекс массива ©ARRAY. Ecjhi ему присваивается значение меньше текущего, массив у.меиьшается. Отсечешияе элементы безвозвратно теряются. Если присвоенное значение больше TCKyuiero, массив увеличивается. Новые элементы получают иеонределеиное значение.

Однако $#ARRAY не следует путать с ©ARRAY. $#ARRAY представляет собой последний допусти.мый индекс массива, а ©ARRAY (в скалярном контексте, то есть в числовой интерпретации) - количество элементов. $#ARRAY на единицу меньше ©ARRAY, поскольку нумерация индексов начинается с 0.

В следующем фрагменте использованы оба варианта:

sub what about that array {

print The array now has ", scalar(@people), elements.\n", print "The index of the last element is $((people \n"; print "Element #3 is $people[3].\n,

(Эреор1е = qw(Crosby Stills Nash Young), what about that array(),

Результат:

The array now has 4 elements.

The index of the last element is 3.

Element «3 is Young.

A другой фрагмент:

$#people--,

what about that array();

выводит следующий результат:

The array now has 3 elements.

The index of the last element is 2.

Element #3 is .

Элемент с индексом 3 нронал при уменьшении массива. Еслн бы програлг-ма запускалась с ключом -w, Perl также выдал бы предупреждепне об использовании неинициализировапноп величины, поскольку значепне $реор1е[3] не определено.

В следующем примере:

$«реор1е = 10 000, what about tliat array(),

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

The array now has 10001 elements.

The index of the last element is 10000.

Element «3 is .

Элемент Young" безвозвратно утерян. Вместо нрнсванванпя Sdpeople можно было сказать:

$people[10 000]=undef,

Массивы Perl не являются разреженными. Другими словами, еслн у вас имеется 10000-й элемент, то должны присутствовать и остальные 9999 элементов. Они могут быть неоиределсппымп, но все равно будут занимать память. Из-за этого $array[time] пли любая другая конструкция, где в качестве индекса используется очень большое целое число, является неудачным решением. Лучше восноль-3yiiTecb хэшем.

При вызове print нам нриииюсь наппсать scalar ©array, поскольку Perl интерпретирует большинство аргументов в списковом контексте, а требовалось значение (За г ray в скалярном контексте.

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

Оннсанне $#ARRAY ърегЫа1а{\).

complain($user), й , предупредить о нарушении

4.4. Выполнение операции с каждым элементом списка

Проблема

Требуется повторить некоторую операцию для каждого элемента списка.

Массивы часто исполызуются для сбора 1И1тересующей информации - например, имен пользователей, превысивших свои дисковые квоты. Данные обрабатываются, при этом с каждым элементом массива выполняется некоторая операция. Скалсе.м, в примере с дисковыми квота.мп каждому пользовате;по отправляется предупреждающее сообщение.

Решение

Воспользуйтесь цнк.юм foreach:

foreach $item (LIST) {

й Выполнить некоторые действия с $item

Комментарий

Предположим, в массиве ©badusers собран список пользователей, превысивших свои дисковые квоты. В следующем фрагменте для каждого нарушителя вызывается процедура complain():

foreach $user (@bad users) { cofflplain($user),

Столь трпвпа.11ьные случаи встречаются редко. Как npaanJUJ, для гепсращш списка часто используются (1)ункцпи

foreach $var (sort keys %ENV) { print $var=$ENV{$var}\n ,

Функции sort и keys строят отсортированный список имен персмсппых окружения. Конечно, многократно используемые списки следует сохранять в массивах. Но для одноразовых задач удобнее работать со cihickom напрямую.

Возможности этой конструкции расширяются пе только за счет построения списка в foreach, по и за счет дополнительных операций в блоке кода, Одно пз рас-простраиенн1)1Х прпмеиепий foreach - сбор информации о каждом .элементе списка и принятие некоторого решения на основании получеиных данных. Вернемся к примеру с квотами:

foreach $user (iaall users) {

$ctisk space = get usage($user); tt Определить объем используемого

# дискового пространства

if ($ctisk space > $MAX QU0TA) { й Если он больше допустимого ,