При попытке выполнить скрипт, его бросали эту ошибку:
"Использование неинициализированные значение вступать или строка в строку arraydef.pl 17".


Сценарий [я вставить строку с номерами]:


1 #! / USR / BIN /Perl
2
3 использование строгой;
4
5 моя @ A \u003d (1 ... 10);
6
7 принт "Исходный массив: @ A \ N";
8
9 # DELETE Функция
10
11 $ моего размера \u003d @ A;
12
13 принт "Размер arry перед удалением 1 элемент размером $ \ N";
14
15
16 Delete ($ A [0]); 1 # Удаление элемента
17 принт "Array после удаления первого элемента: @ A \ N";
18 $ размер \u003d @ A;
19 принт "Размер arry после удаления элемента 1: $ размер \ N"; # размер Dont отличаются Вэнь мы удалить 1 или средним,,. Он отличается только в Вене, мы удалим последний элемент.
20
21 Delete ($ A [$ размер-1]);
22 принт "Array после удаления последнего элемента: @ A \ N";
23 $ размер \u003d @ A;
24 принт "Размер arry после удаления последнего элемента: $ размер \ N";