[MEGOLDVA]Perl segítség

Szkriptek: Python, Perl, Bash, ...

hello

nem értem h miért ezt a kimenetet kapom:
23 24 25 23 is undefined! 23 is undefined! 45

a progam:
my @t = ( "23", "24", "25");
$t[5] = "45";

my $x = 0;

foreach $x (@t)
{
no warnings;
if (defined $x) {print $x, " ";}
else {print "$t[$x] is undefined!" . " ";}
}

miért az első 0-ik elemet adja vissza és nem a tömb indexet (3-at és 4-et)?

  • 1557 megtekintés

( kilvadi | 2014. 11. 30., v – 12:28 )

$x-ben az aktualis elem ertek van(lenne), nem pedig a "tomb indexe".

my @t = ( "23", "24", "25");
$t[5] = "45";

my $index = 0;

foreach my $elem (@t)
{
no warnings;
if (defined $elem) {print "$index. :". $elem ."\n";}
else {print "$index. is undefined!\n";}
$index++;
}