Язык программирования Perl

Если в левой части присваивания переменных меньше, чем значений в правой, то лишние значения не используются.

 ($hh, $mm, $ss) = (10, 20, 30, 400); # 400 отброшено

Если в левой части присваивания стоит не список, а скалярная переменная, то устанавливается скалярный контекст, в котором литеральный список возвращает значение своего последнего элемента:

 $scalar = (10, 20, 30, 400); # то же, что $scalar = 400;

Значение списка может храниться в переменной, называемой массив. Перед именем переменной-массива стоит разыменовывающий префикс @ (напоминающий своим видом, что это array - "массив"). Одновременно с переменной-массивом в программе может существовать скалярная переменная с таким же именем, но с префиксом $, так как имена скаляров и массивов хранятся в разных таблицах имен (symbol tables).

 @variable # массив для хранения списка
 $variable # скаляр для хранения строки или числа

Списочное значение помещается в массив с помощью операции присваивания. Присваивание выполняется по-разному в зависимости от контекста, который определяется левым операндом присваивания. Если в левой части присваивания стоит массив или список, то и в правой части ожидается список. Например:

 @empty = ; # пустой массив после присвоения пустого списка
 @months = (1 .. 12); # массив со списком номеров месяцев
 @days = qw(Пн Вт Ср Чт Пт Сб Вс); # массив дней недели
 @week = @days; # копирование значения массива @days в @week
 @array = 25; # литерал 25 рассматривается как список (25)
 ($first) = @array; # в $first скопируется 1-й элемент массива
 @first = @second = (1, 2, 3); # каскадное присваивание

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

 $array_size = @months; # число элементов (размер) массива
 $array_size = scalar @months; # размер массива

В зависимости от контекста, системная функция localtime возвращает разные значения: в скалярном контексте она вернет строку с текущей датой и временем, а в списочном - список из девяти значений с данными о дате и времени:

 $date_and_time = localtime;
 ($sec, $min, $hour, # секунды, минуты, часы
 $mday, $mon, $year, # день, месяц, год,
 $wday, $yday, $isdst) # день недели, день года, часовая зона
 = localtime;

В состав списочного литерала могут входить массивы и другие списочные литералы - тогда они заменяются списком своих значений. Но результирующий массив будет одномерным, так как вложенные списки в Perl не предусмотрены. Массивы массивов организуются с помощью ссылок, что будет изучено в лекции 11. Вот примеры такой инициализации массива:

 @small = (3, 4, 5); # этот массив будет вставлен в список
 @big = (1, 2, @small, 6 .. 9); # то же, что @big = (1 .. 9);
 @big = ((1, 2), (3 .. 5), (6 .. 9)); # то же, что и выше

С помощью списка можно легко добавить новые элементы в начало или в конец существующего массива:

 @array = ($new_element, @array); # добавить элемент в начало
 @array = (@array, $new_element); # добавить элемент в конец
 @all = (@first, @second); # объединить два массива в один

Присваивая массив списочному литералу, можно извлечь начальные элементы из массива в скалярные переменные, поместив оставшиеся элементы в исходный массив:

 ($element1, @array) = @array; # извлечь элемент из начала

Массив в левой части присваивания имеет смысл ставить только в конце списка, поскольку он поглощает все значения, и стоящие после него переменные получат неопределенные значения:

 (@array,$a,$b) = (1,2,3,4,5); # все 5 чисел попадут в @array

Элементы массива - это скалярные величины, доступ к которым происходит по их порядковому номеру (индексу). Поскольку элемент массива - это скаляр, то его обозначение состоит из разыменовывающего префикса $ перед именем массива, за которым в квадратных скобках стоит индекс. Индексы элементов массива задаются целыми числами, начиная с нуля. (Номер начального индекса массивов раньше мог задаваться значением специальной переменной $[, но сейчас эта возможность считается устаревшей, поэтому поступать так не рекомендуется.) Вот так выглядит в программе обращение к элементам массива:

 @array # переменная-массив, хранящая список
 $array[0] # первый элемент массива с индексом 0
 $array[1] # второй элемент массива с индексом 1
 $array[$i] # i-й элемент массива, считая с 0
 $array # скаляр, не имеющий отношения к массиву @array

Если требуется обращаться к элементам массива, начиная с последнего, то используются отрицательные значения индексов:

 $array[-1] # последний элемент, то есть 1-й от конца
 $array[-2] # предпоследний элемент, то есть 2-й от конца
 $array[-$n] # n-й элемент массива, считая с конца

Индекс последнего элемента массива, который всегда на единицу меньше размера массива, можно узнать, указав специальный префикс $# перед именем массива:

 $last_index = $#array; # индекс последнего элемента @array