Добавление и удаление элементов массива

Для добавления и удаления элементов массива используются следующие функции:
D unshift (<массив>, <Элемент>)—добавляет элементы в начало массива:
$Mass[0]="Три";
$Mass[1]="Четыре"; unshift(@Mass, "Один", "Два"); for($i=0; $i<@Mass; $i++) { print "$Mass[$i] ";
} # Один Два Три Четыре
П push (<массив>, <Элемент>) — добавляет элементы в конец массива:
$Mass[0]="0дин";
$Mass[1]="Два";
push(0Mass, "Три", "Четыре");
for($i=0; $i<@Mass; $i++) { print "$Mass[$i] ";
} # Один Два Три Четыре
При желании можно добавить новый элемент в конец массива следующи¬ми способами:
0Mass = ("Ноль", "Один"., "Два", "Три") ;
$Mass[$#Mass+l]="Четыре";
$Mass[@Mass]="Пять"; for($i=0; $i<@Mass; $i++) { print "$Mass[$i]
} # Ноль Один Два Три Четыре Пять
• shift (<массив>) — удаляет первый элемент массива и возвращает его:
$Mass[0]="Один";
$Mass[1]="Два";
print shift(0Mass); # Выведет "Один" for($i=0; $i<0Mass; $i++) { print "$Mass[$i]
} # Два
• pop (<массив>) — удаляет последний элемент массива и возвращает его:
$Mass[0]="Один";
$Mass[1]="Два";
print pop(0Mass); # Выведет "Два" ~ for($i=0; $i<0Mass; $i++) { print "$Mass[$i]
} # Один
С помощью функции splice о можно заменить часть массива одним элемен¬том или массивом элементов. Функция имеет следующий формат:
splice(<Массив>, <Начальная позиция>, <Количество элементов>,
Добавляемый массив>) ;
• <массив>— исходный массив. Если остальные аргументы не указаны, то функция splice о удаляет все элементы из массива;
• <начальная позиция>— количество элементов от начала массива, которые надо пропустить;
• количество элементов>— количество элементов, которое нужно заменить в исходном массиве. Если два последних аргумента не указаны, то будут удалены элементы от <начальной позиции> до конца массива;
• Добавляемый массив> — один элемент или массив элементов,.добавляемых вместо выбранных элементов. Если аргумент не указан, то заданная сек¬ция удаляется из массива:
0Massl=("Один", "Два", "Три", "Четыре", "Пять");
@Mass2=("3", "4", "5");
splice(@Massl, 2, scalar(0Mass2), 0Mass2); for($i=0; $i<0Massl; $i++) { print "$Massl[$i] ";
} # Один Два 3 4 5