php - Perl 相当于 Php foreach 循环

Question

我正在寻找与以下 php 代码等效的 Perl:-

foreach($array as $key => $value){
...
}

我知道我可以像这样做一个 foreach 循环:-

foreach my $array_value (@array){
..
}

这将使我能够对数组值执行操作 - 但我也想使用键。

我知道有一个 Perl 散列允许你设置键值对，但我只想要数组自动给你的索引号。

Answer 1

如果您使用的是 Perl 5.12.0 或更高版本，您可以在数组上使用 each:

my @array = 100 .. 103;

while (my ($key, $value) = each @array) {
    print "$key\t$value\n";
}

输出:

0       100
1       101
2       102
3       103

perldoc each