4.13 テストを最初にパスする要素を見つける
# 方法1 # 条件にマッチする要素が見つかったらlastを呼び出してループを抜ける。 my ($match, $found, $item); foreach $item (@array) { if (CRITERION) { $match = $item; #要素を保存 $found = 1; last; } if ($found) { ## $matchに対する処理を書く } else { ## マッチしなかった場合の処理を書く } # 方法2 # List::Utilを使う use List::Util qw(first); $match = first { CRITERION } @list;