Amikor megpróbálja végrehajtani a következő szkriptet, hogy ezt a hibát dobott:
"Use of inicializálatlan érték csatlakozni vagy string-on arraydef.pl line 17".


A szkript [én beillesztése a sorszámokat]:


1 #! / Usr / bin /perl
2
3 use strict;
4
5 my @ a \u003d (1 ... 10);
6
7 print "Original array: @ a \ n";
8
# 9 Törölni Funkció
10
11 my $ size \u003d @ a;
12
13 print "méret Arry törlése előtt 1. elem: $ size \ n";
14
15
16 delete ($ a [0]); # 1. elem törlése
17 print "A tömb első eleme törlése után: @ a \ n";
18 $ size \u003d @ a;
19 print "méret Arry törlése után 1. elem: $ size \ n"; # mérete dont különböznek wen töröljük 1. vagy a középső,,. Csak annyiban különbözik wen töröljük utolsó eleme.
20
21 delete ($ a [$ size-1]);
22 print "A tömb utolsó eleme törlése után: @ a \ n";
23 $ size \u003d @ a;
24 print "méret Arry törlése után utolsó elem: $ size \ n";

delete (valami) teszi a "valami" nem definiált

Praveen, próbáld váltás funkció az, hogy a tömb

de hogyan lehet megszabadulni a hibát?

Yogesh adta meg a választ. váltás a tömbben. Ha nem tetszik, akkor mondja el, mi az Ön igényei. Más szóval, mit akarsz csinálni a perl kód ...

Szerint a POD, a tömb elem, delete () meghatározza az elem undef. Tehát $ a [0] lesz undef. print @ a ad majd a figyelmeztetés (nem tévedés) a figyelmeztetéseket, ha engedélyezve van.