如何使用数组值来限制perl中的for循环？

Question

这个问题我知道的很模糊，但我希望能够解释的空间可以帮助解决问题，这是我整天围绕我的大脑，并且无法通过搜索找到任何建议。

基本上我有一个数组@cluster，我试图用来使迭代器$ x跳过位于该数组中的值。该数组的大小会有所不同，所以我不能仅仅（非常残酷地）使if语句不幸地适合所有情况。

通常当我需要一个标值我只是做这样做：

for my $x (0 .. $numLines){ 
    if($x != $value){ 
     ... 
    } 
} 

有什么建议？

Answer 1

你可以这样做：

my @cluster = (1,3,4,7); 
outer: for my $x (0 .. 10){ 
    $x eq $_ and next outer for @cluster; 
    print $x, "\n"; 
} 

用Perl 5.10，你也可以这样做：

for my $x (0 .. 10){ 
    next if $x ~~ @cluster; 
    print $x, "\n"; 
} 

或更好地使用哈希：

my @cluster = (1,3,4,7); 
my %cluster = map {$_, 1} @cluster; 
for my $x (0 .. 10){ 
    next if $cluster{$x}; 
    print $x, "\n"; 
} 

Answer 2

豆你的意思是这样的：

for my $x (0 .. $numLines){ 
    my $is_not_in_claster = 1; 
    for(@claster){ 
     if($x == $_){ 
      $is_not_in_claster = 0; 
      last; 
     } 
    } 
    if($is_not_in_claster){ 
     ... 
    } 
} 

？

Answer 3

嗯......如果你正在跳过线条，为什么不直接使用该条件而不是记住需要过滤的行？

的grep功能是过滤列表一个强大的构造：

my @array = 1 .. 10; 

print "$_\n" for grep { not /^[1347]$/ } @array; # 2,5,6,8,9,10 
print "$_\n" for grep {  $_ % 2  } @array; # 1,3,5,7,9 

my @text = qw(the cat sat on the mat); 

print "$_\n" for grep { ! /at/ } @text;   # the, on, the 

少得多的混乱，以及更多DWIM！