Når du forsøger at udføre følgende script, dens smide denne fejl:
"Brug af initialiserede værdi i at deltage i eller strengen på arraydef.pl linje 17."


Scriptet er [jeg indsætter med linjenummer]:


1 #! / Usr / bin /perl
2
3 Brug strenge;
4
5 min @ a \u003d (1 ... 10);
6
7 print "Original array: @ a \ n";
8
9 # slette-funktion
10
11 my $ size \u003d @ a;
12
13 print "størrelse Arry før du sletter 1:e element: $ size \ n";
14
15
16 slette ($ a [0]); # Sletning 1:a element
17 print "Array efter sletning første element: @ a \ n";
18 $ size \u003d @ a;
19 print "størrelse Arry efter sletning 1:e element: $ size \ n"; # størrelse dont afvige wen vi sletter 1. eller midten,,. Det adskiller sig kun wen vi sletter sidste element.
20
21 slette ($ a [$ size-1]);
22 print "Array efter sletning af sidste element: @ a \ n";
23 $ size \u003d @ a;
24 print "størrelse Arry efter sletning af sidste element: $ size \ n";