Perl 等价于 Php foreach 循环答案

【问题标题】：Perl equivalent to Php foreach loopPerl 等价于 Php foreach 循环
【发布时间】：2012-05-23 21:03:48
【问题描述】：

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

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

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

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

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

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

【问题讨论】：

【解决方案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

【讨论】：

【解决方案2】：

试试：

my @array=(4,5,2,1);
foreach $key (keys @array) {
    print $key." -> ".$array[$key]."\n";
}

适用于哈希和数组。在数组的情况下，$key 保存索引。

【讨论】：

【解决方案3】：

我猜最接近的 Perl 是这样的：

foreach my $key (0 .. $#array) {
  my $value = $array[$key];

  # Now $key and $value contains the same as they would in the PHP example
}

从 Perl 5.12.0 开始，您可以在数组和散列上使用 keys 函数。这可能更具可读性。

use 5.012;

foreach my $key (keys @array) {
  my $value = $array[$key];

  # Now $key and $value contains the same as they would in the PHP example
}

【讨论】：