När du försöker köra följande skript, dess kasta detta fel:
"Användning av oinitierade värde gå eller snöre på arraydef.pl rad 17."


Skriptet är [jag klistrar med radnummer]:


1 #! / Usr / bin /perl
2
3 Använd strikt;
4
5 min @ a \u003d (1 ... 10);
6
7 print "Original array: @ a \ n";
8
9 # raderingsfunktionen
10
11 min $ size \u003d @ a;
12
13 print "storlek ARRY innan du tar bort 1. Element: $ size \ n";
14
15
16 bort ($ a [0]); # Ta bort element 1.
17 print "Array tagit bort första delen: @ a \ n";
18 $ size \u003d @ a;
19 print "storlek ARRY tagit bort 1. Element: $ size \ n" # storlek dont skiljer wen vi bort 1: a eller mitten,,. Det skiljer bara wen vi bort det sista elementet.
20
21 bort ($ a [$ size-1]);
22 print "Array tagit bort sista elementet: @ a \ n";
23 $ size \u003d @ a;
24 print "storlek ARRY tagit bort sista elementet: $ size \ n";