Почему этот код печатает только первый элемент?

Question

Может кто-нибудь объяснить мне, почему печатается только первый элемент этого массива?

print "Hello World!\n"; 

    @array1 = ("john","haider","elley","uul"); 

    @array2 = qw/This is an array/; 

    $array_size=scalar @array1; 

    print "Size: ",$array_size,"\n"; 

    $i; 

    for($i=0; $i<=$array_size; $i=$i+1) 
    { 
      print"Array elements are=",$array1[i],"\n"; 
    } 

Answer 1

Потому что вы опечатали здесь: $array1[i].

Это должно быть $i, как в $array1[$i] - и это то, что use strict;use warnings бы предупреждал вас о. Bareword "i" not allowed while "strict subs" in use

Но, поскольку он используется, потому что вы используете i, и это не переменная - она ​​оценивается как ноль, поэтому вы просто печатаете первый элемент массива.

Лучше идиома будет:

foreach my $value (@array1) { 
    print "Array elements are=", $value,"\n"; 
} 

Это редко бывает необходимо (или желательно) для управления массивами с помощью индекса в Perl.