在perl中獲取foreach循環中的數組的下一個元素，而不使用next /跳轉到循環的下一個迭代中

Question

我是perl的新手，並且在跳過foreach循環中的數組的下一個元素時沒有重複循環。假設我有以下情況，我正在通過一個使用foreach循環的數組。

foreach (@lines){ 
    ... 
    print "$_";  #print current line 
    if (cond){  #this condition is met by one "line" in @lines 
     #goto next line; 
     $_=~s/expr/substitute_expr/g;  #substitute in the next line 
     } 
    ... 
} 

是否有可能在perl中這樣做。與文件處理程序，可以使用<>運算符，如下

foreach $line (<FILE>){ 
    print "$line\n";  #print this line 
    $line = <FILE>; 
    print "$line";  #print next line 
} 

是否有任何方式這可以用一個陣列被複制。
有沒有辦法做到這一點不使用下一個或重複陣列

Answer 1

可以使用數組索引。如果你不希望出現這種情況，你可以使用C-風格：

for (my $i = 0; $i < $#list ; $i++) { 
    # ... 
} 

更先進的技術，將定義一個迭代器：

#!/usr/bin/perl 
use warnings; 
use strict; 


sub iterator { 
    my $list = shift; 
    my $i = 0; 
    return sub { 
     return if $i > $#$list; 
     return $list->[$i++]; 
    } 
} 


my @list = qw/a b c d e f g h/; 
my $get_next = iterator(\@list); 

while (my $member = $get_next->()) { 
    print "$member\n"; 
    if ('d' eq $member) { 
     my $next = $get_next->(); 
     print uc $next, "\n"; 
    } 
} 

Answer 2

使用的計數循環中：

use strict; 
use warnings; 

my @list = (1, 2, 3); 
# as the item after the last can't be changed, 
# the loop stops before the end 
for (my $i = 0; $i < (scalar @list - 1); ++$i) { 
    if (2 == $list[$i]) { 
     $list[$i + 1] = 4; 
    } 
} 

print join ',', @list; 

輸出：

perl countloop.pl 
1,2,4 

在循環的下一次迭代再次

for my $i (0 .. $#lines) { 
    # ... 
    print $lines[$i]; 
    if (cond()) { 
     $lines[ $i + 1 ] =~ s/pattern/replace/g; 
    } 
} 

這將然而，過程中的「下一個」行：

Answer 3

這是choroba的封閉的修改答案將適用於所有陣列（即包含像0,""和undef這樣的值的數組），因此執行更像一個典型的foreach循環。

#!/usr/bin/perl 
use warnings; 
use strict; 

#!/usr/bin/perl 
use warnings; 
use strict; 

sub iterator { 
    my $list = shift; 
    my $i = 0; 
    return sub { 
     if (defined $_[0] and $i > $#$list){ 
      return 0; 
     } 
     elsif (defined $_[0]){ 
      return 1; 
     } 
     else{ 
      return $list->[$i++]; 
     } 
    } 
} 

my @list = qw/a b c d e f g h 0 1 2 3/; 
my $get_next = iterator(\@list); 

while ($get_next->("cycle through all array elements")) { 
    my $member = $get_next->(); 
    print "$member\n"; 
    if ('d' eq $member) { 
     my $next = $get_next->(); 
     print uc $next, "\n"; 
    } 
}