Ao tentar executar o script a seguir, o seu jogando este erro:
"Use of uninitialized valor em aderir ou corda em linha arraydef.pl 17."


O script é [i am colar com os números de linha]:


1 #! / Usr / bin /perl
2
3 use strict;
4
5 my @ a \u003d (1 ... 10);
6
7 print "matriz original: @ um \ n";
8
9 # DELETE Função
10
11 my $ size \u003d @ a;
12
13 print "tamanho do arry antes de eliminar 1o elemento: $ tamanho \ n";
14
15
Apagar 16 ($ a [0]); # Apagando elemento 1.
17 print "Array após apagar primeiro elemento: @ um \ n";
18 $ @ size \u003d um;
19 print "tamanho do arry após a exclusão de 1. Elemento: $ tamanho \ n"; # tamanho não diferem wen nós 1. Apagar ou meio,,. Difere apenas nós wen apagar último elemento.
20
Apagar 21 ($ a [$ tamanho-1]);
22 print "Array após apagar último elemento: @ um \ n";
23 $ @ size \u003d um;
24 print "tamanho do arry após a exclusão último elemento: $ tamanho \ n";

apagar (coisa), faz "algo" indefinido

praveen, tente deslocar sobre essa função array

mas como se livrar desse erro?

Yogesh te deu a resposta. mudança da matriz. Se você não gosta, que, depois, dizer-nos quais são suas necessidades. Em outras palavras o que você está tentando fazer com o perl código ...

De acordo com a POD, elemento de um array, excluir () define o elemento a undef. Portanto, $ a [0] será undef. @ imprimir uma então dar uma advertência (não erro) se avisos são ativados.