Quand essayer d'exécuter le script suivant, son lancer ce message d'erreur:
"Utilisation de la valeur non initialisée ou rejoindre chaîne arraydef.pl à la ligne 17."


Le script est [i am coller avec les numéros de ligne]:


1 #! / Usr / bin /perl
2
3 use strict;
4
5 my @ a \u003d (1 ... 10);
6
7 print "Original array: @ a \ n";
8
9 # DELETE Fonction
10
11 my $ size \u003d @ a;
12
13 print "taille de Arry avant de supprimer 1er élément: $ size \ n";
14
15
16 delete ($ a [0]); # Suppression 1er élément
17 print "Array après la suppression premier élément: @ a \ n";
18 $ size \u003d @ a;
19 print "taille de Arry après la suppression 1er élément: $ size \ n"; # dont la taille diffère wen supprimer 1er ou au milieu,,. Il diffère seulement wen supprimer dernier élément.
20
21 delete ($ a [$ size-1]);
22 print "Array après la suppression dernier élément: @ a \ n";
23 $ size \u003d @ a;
24 print "taille de Arry après la suppression dernier élément: $ size \ n";

delete (quelque chose) fait "quelque chose" undefined

Praveen, essayez déplacement fonction de ce tableau

mais comment se débarrasser de cette erreur?

Yogesh vous a donné la réponse. changement de la matrice. Si vous n'aimez pas cela, dites-nous ce que sont vos exigences. En d'autres termes, qu'est-ce que tu essaie de faire avec les perl code ...

Selon le POD, pour un élément de tableau, supprimer () définit l'élément à undef. Alors $ a [0] sera undef. print @ a ensuite donner un avertissement (pas d'erreur), si les avertissements sont activés.