Wenn ich versuche, das folgende Skript ausführen, seine werfen diese Fehlermeldung:
"Die Verwendung von nicht initialisierten Wert in beizutreten oder String an arraydef.pl Linie 17".


Das Skript ist [i bin Einfügen mit Zeilennummern]:


1 #! / Usr / bin /perl
2
3 use strict;
4
5 my @ a \u003d (1 ... 10);
6
7 drucken "Original array: @ a \ n";
8
9 # DELETE-Funktion
10
11 my $ size \u003d @ a;
12
13 drucken "Größe der ARRY vor dem Löschen 1. Element: $ size \ n";
14
15
16 delete ($ a [0]); # 1. Element löschen
17 drucken "Array nach dem Löschen erste Element: @ a \ n";
18 $ size \u003d @ a;
19 drucken "Größe der ARRY nach dem Löschen 1. Element: $ size \ n"; # dont Größe unterscheiden wen wir löschen 1. oder Mitte. Es unterscheidet sich nur wen wir löschen letzte Element.
20
21 delete ($ a [$ size-1]);
22 drucken "Array nach dem Löschen letzte Element: @ a \ n";
23 $ size \u003d @ a;
24 drucken "Größe der ARRY nach dem Löschen letzte Element: $ size \ n";