Функции push и pop

Функции push и pop

Скрипты языка Perl используют фикции push и pop для того, чтобы добавлять и удалять элементы с конца массива. Иными словами, функции push и pop позволя­ют скриптам выполнять операции со стеком по принципу: последним вошел, пер­вым вышел. Функция push имеет следующий формат:

push(@ARRAY, LIST);

Следующий фрагмент иллюстрирует использование функции push :

@ list = ();

push (@ list ,10,20);                    # @ list теперь (10,20)

push (@ list ,1..3);                       # @ list теперь (10,20,1,2,3)

В противоположность этому функция pop удаляет элемент, который был встав­лен в стек последним и возвращает значение этого элемента. Функция pop имеет следующий формат:

$value = pop(@ARRAY);

Следующий фрагмент программы иллюстрирует использование функции pop :

# Возьмём @ list из предыдущего примера

            print pop (@ list );                               # Выведет 3

            print pop (@ list );                               # Выведет 2

            # Теперь @ list (10,20)