Получение и изменение элементов массива

Обращение к элементам массива осуществляется с помощью квадратных скобок, в которых указывается индекс элемента. Индексация элементов мас¬сива начинается с нуля:
@Mass = ("Ноль", "Один", "Два", "Три");
$var = $Mass[l]; # Переменной $var будет присвоено значение "Один"
В языке Perl можно указывать в качестве индекса отрицательное число. В этом случае индекс будет отсчитываться от последнего элемента массива:
@Mass = ("Ноль", "Один", "Два", "Три");
$var = $Mass[-l]; # Переменной $var будет присвоено значение "Три"
С помощью списка можно присвоить значения элементов массива некоторым скалярным переменным:
0Mass = ("Ноль", "Один", "Два", "Три");
($varl, $var2, $var3, $var4) = 0Mass;
print $var2; # Переменной $var2 будет присвоено значение "Один"
Для определения последнего индекса массива используется последователь¬ность символов $# перед именем массива:
@Mass = ("Ноль", "Один", "Два", "Три"); print $#Mass; # Выведет 3
Данный пример выведет число 3, т. к. индексация массива начинается с 0. Чтобы получить количество элементов массива, необходимо к этому значе¬нию прибавить 1 ИЛИ использовать инструкцию scalar (@Mass):
0Mass = ("Ноль", "Один", "Два", "Три"); print scalar(@Mass); # Выведет 4
Если выражению $#Mass присвоить какое-либо значение, то это будет макси¬мальный индекс массива. В этом случае если цифра больше максимального индекса текущего массива, то размер массива увеличится, а у новых элемен¬тов будет неопределенное значение. Если цифра меньше максимального ин¬декса, то элементы с индексом больше указанного значения будут удалены:
@Mass = ("Ноль", "Один", "Два", "Три"); print $#Mass; # Выведет 3 $#Mass = 5;
print $#Mass; # Выведет 5 $#Mass = 2;
print @Mass; # Выведет НольОдинДва
При желании можно добавить новый элемент массива или изменить значение существующего:
$Mass[$#Mass+l]="Четыре";
$Mass[0]="Нуль";
Для добавления нового элемента в конец массива можно воспользоваться следующим способом:
0Mass = ("Ноль", "Один", "Два", "Три");
$Mass[@Mass]="Четыре";