Quando si tenta di eseguire il seguente script, il suo lancio di questo errore:
"L'utilizzo di valore non inizializzato nella stringa o aderire a arraydef.pl linea 17".


Lo script è [i am incollando con numeri di linea]:


1 #! / Usr / bin /perl
2
3 use strict;
4
5 my @ a \u003d (1 ... 10);
6
7 Stampa "Original array: @ uno \ n";
8
9 # CANC Funzione
10
11 mio $ size \u003d @ a;
12
13 print "dimensione di arry prima di eliminare 1o elemento: $ size \ n";
14
15
16 cancellare ($ a [0]); # Eliminazione elemento 1.
17 print "Array dopo l'eliminazione di primo elemento: @ uno \ n";
18 $ size \u003d @ a;
19 print "dimensione di arry dopo l'eliminazione di 1a elemento: $ size \ n"; # wen diverse dimensioni di cui abbiamo cancellato 1a metà o,,. Si differenzia solo wen eliminare l'ultimo elemento.
20
21 cancellare ($ a [$ size-1]);
22 print "dopo l'eliminazione di Array ultimo elemento: @ uno \ n";
23 $ size \u003d @ a;
24 print "dimensione di arry dopo l'eliminazione ultimo elemento: $ size \ n";