通过在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.../; 
}