このPerlループの中で条件付きで最後に使用するクリーナーはありますか？

Question

私はPerlを知らないので、友好的な検索エンジンの助けを借りてPerlスクリプトを強化しています。

foreach my $element (@array) { 
    if($costlyCondition) { 
     $flag = 1; 
     last; 
    } 
} 

私は「最後の」使用するためのよりよい方法は、このようなものであることを知っている：

私は条件が叶うならばフラグを設定しながら、私はループから抜け出す必要があることがわかり

foreach my $element (@array) { 
    last if ($costlyCondition); 
} 

もちろん、私は構文的な砂糖を楽しむことができますが、私はループ内にフラグを設定できません。つまり、もう一度$costlyConditionを評価する必要があります。

これを行うクリーナー方法はありますか？

Answer 1

あなたがdo {...}ブロックを使用することができます。

do {$flag = 1; last} if $costlyCondition 

---

あなたがステートメントに参加する,演算子を使用することができます。

$flag = 1, last if $costlyCondition; 

---

あなたは論理的に同じことを行うことができます&&オペレーター：

(($flag = 1) && last) if $costlyCondition; 

またはさらに低い優先順位and：一日の終わりに

(($flag = 1) and last) if $costlyCondition; 

---

、これらのいずれかを行うには本当の理由はありません。それらはすべて元のコードとまったく同じです。元のコードが機能して読みやすい場合は、そのままにしておきます。

Answer 2

出口点に応じて異なる値を返すサブルーチンでループを実行するのが1つ考えられます。

my $flag = check_elements(\@array); 

# later... 

sub check_elements { 
    my $arrayref = shift; 
    for my $ele (@$arrayref) { 
    return 1 if $costly_condition; 
    } 
    return 0; 
} 

Answer 3

は、私はきちんと見ているコードがきちんとしている間、時々読めるバージョンが優れていること、ネイサンに同意します。

last if $flag = $costly_condition; 

ではなく、平等==の割り当て=の使用に注意してください：ちょうどそれの地獄のために、しかし、ここで恐ろしいバージョンがあります。代入は$costly_conditionにある値を返します。

これはもちろん$flag = 1となりますが、$costly_conditionとはなりません。しかし、それが真実である必要があるので、$flagもそうです。それを解決するには、することができます - ザイドはコメントで述べたように - 使用：述べたように

last if $flag = !! $costly_condition; 

、かなり恐ろしいソリューションが、彼らは仕事をします。

Answer 4

これは可能ですが、お勧めしません。このような方法はコードの可読性を低下させます。

foreach my $element (@array) { 
    $flag = 1 and last if $costlyCondition; 
}