arrays - 反復配列内の要素数の追跡?

Question

forループで反復される要素の数をperlで追跡できる方法はありますか:特殊変数を使用するように:

@arrayElements = (2,3,4,5,6,7,67);
foreach (@arrayElements) {
    # Do something
    # Want to know how may elements been iterated after 
    # some n number of elements processed without using another variable.
}

Answer 1

あなたが行くようにカウントするだけです：

my $processed = 0;
foreach my $element (@array_elements) {
    ...
    ++$processed;
}

または、代わりにインデックスを反復処理します。

foreach my $index (0..$#array_elements) {
    my $element = $array_elements[$index];
    ...
}

Answer 2

配列内の要素の数を次のように取得できます

    my $num = @arrayElements;
    print $num;

また

   my $num = scalar (@arrayElements);
   print $num;

また

   my $num = $#arrayElements + 1;
   print $num;

そして、反復された要素の数を見つけるために、以下のコードを使用できます:

my $count = 0;  #initially set the count to 0
foreach my $index(@arrayElements)
{
  $count++;
}
print $count;