Perl + PerlCritic |ループイテレータは

Question

私は、私はmesssageを得るperlcriticチェックした後、このコード

... 
    my $line = ''; 
     foreach $line (split(/\n/x, $raw)) { 
      chomp $line; 
      my ($key, $val) = split(/=/x, $line); 
      $param{$key} = $val; 
     } 
... 

を持って字句ではない「ループイテレータが字句ではありません。」 何が間違っていますか？

私は

#my $line = ''; 
      foreach my $line (split(/\n/x, $raw)) 

が、なぜを使用することができますか？ :)

Answer 1

PerlCriticは、ループ変数がループスコープのみを持つことを望んでいる、つまりループの終了後に存在しないように見えます。これは過度に純粋主義/ペタニックと見なすことができますが、私は同意しがちで、通常は私のPerlコードを同様に書いています。また

、CPAN Perl::Critic::Policy::Variables::RequireLexicalLoopIteratorsからthis looks like a configurable option

Answer 2

！

あなたは$自転車ので、あなたがあなたの家族との夕食の時間に到着できるようにするつもりはない

my $bicycle; 
for $bicycle (@things_attached_to_the_bike_rack) { 
    if (
      $bicycle->is_red() 
     and $bicycle->has_baseball_card_in_spokes() 
     and $bicycle->has_bent_kickstand() 
    ) { 
     $bicycle->remove_lock(); 

     last; 
    } 
} 

if ($bicycle and $bicycle->is_unlocked()) { 
    ride_home($bicycle); 
} 

のようなコードが表示されるまで、これは大したことのように思えないかもしれませんループの外側はループによって変更されません。あなたは自転車のロックを解除しているかもしれませんが、それがどれだったのか覚えていません。