迭代Perl中的数组

Question

您好我有一个简单的问题：如何遍历数组。下面的数组包含要通过regex命令修改的字符串。

foreach(@array)
{
    $count = 0;
    @array[$count] =~ /regex here../;
    $count++;
}

我可以修改数组中的第一个对象，但不能修改其余对象。任何帮助，将不胜感激。感谢

Answer 1

简单地说：

foreach(@array)
{
    /regex here../;
}

或

foreach my $a (@array)
{
    $a =~ /regex here../;
}

或

foreach my $i (0 .. $#array) 
{
    $array[$i] =~ /regex here.../;
}