Cuando intenta ejecutar la siguiente secuencia de comandos, su lanzamiento este error:
"Utilización de valor que no se unan en cadena o en línea arraydef.pl 17."


El guión es de [i am pegar con los números de línea]:


1 #! / Usr / bin /perl
2
3 use strict;
4
5 my @ a \u003d (1 ... 10);
6
7 print "matriz original: @ a \ n";
8
9 # función de eliminación
10
11 my $ size \u003d @ a;
12
13 print "tamaño de 1 ª antes de eliminar ARRY elemento: $ size \ n";
14
15
Eliminar 16 ($ a [0]); # 1 Eliminar elemento
17 print "matriz después de eliminar primer elemento: @ a \ n";
18 $ size \u003d @ a;
19 print "tamaño de ARRY después de la supresión de 1 elemento: $ size \ n"; # tamaño no difieren wen borramos 1 o medio,,. Se diferencia sólo wen que eliminar el último elemento.
20
Eliminar 21 ($ a [$ size-1]);
22 print "matriz después de eliminar el último elemento: @ a \ n";
23 $ size \u003d @ a;
24 print "tamaño de ARRY después de eliminar el último elemento: $ size \ n";