Bij het proberen om het volgende script uit te voeren, zijn het gooien van deze fout:
"Gebruik van geïnitialiseerde waarde in te sluiten of string arraydef.pl op lijn 17."


Het script is [ik ben plakken met regelnummers]:


1 #! / Usr / bin /perl
2
3 use strict;
4
5 Mijn @ a \u003d (1 ... 10);
6
7 print "Original array: @ a \ n";
8
9 # Verwijder Functie
10
11 my $ size \u003d @ a;
12
13 print "grootte van Arry voordat u 1e element: $ size \ n";
14
15
16 verwijderen ($ a [0]); # wissen 1e element
17 print "Array na het verwijderen van eerste element: @ a \ n";
18 $ size \u003d @ a;
19 print "grootte van Arry na het verwijderen van 1e element: $ size \ n"; # grootte dont verschillen wen verwijderen we 1e of midden,,. Het verschilt alleen wen we verwijderen laatste element.
20
21 delete ($ a [$ size-1]);
22 print "Array na het verwijderen van laatste element: @ a \ n";
23 $ size \u003d @ a;
24 print "grootte van Arry na het verwijderen van laatste element: $ size \ n";

verwijderen (iets) maakt "iets" undefined

Praveen, probeer verschuiven functie op die matrix

maar hoe om zich te ontdoen van deze fout?

Yogesh gaf je het antwoord. verschuiving van de array. Als u niet wil dat dan vertel ons wat uw wensen zijn. Met andere woorden: wat doe je probeert te doen met de perl code ...

Volgens de POD, voor een array-element, delete () stelt het element undef. Dus $ a [0] zal worden undef. @ a print dan zal een waarschuwing (niet fout) als waarschuwingen zijn ingeschakeld.