Perlのfor文と置換演算子でcase文的なことをする

例

sub foo {
    my $foo = shift;

    for ($foo) {
        s/abc/abc/ and return 1;
        s/def/def/ and return 2;
        s/ghi/ghi/ and return 3;
    }
}

fooサブルーチンは引数の文字列に'abc'が含まれれば1を、
'def'が含まれれば2を、
'ghi'が含まれれば3を返します。

解説

• for文の()の中の配列の要素が各ループごとに$_に入ります
  • スカラ値をリストコンテキストで評価すると、そのスカラ値を唯一の要素に持つリストになります
• s///（などの）演算子は指定がなければ$_に対し適用されます
• s///はマッチングした場合にtruthyを、そうでない場合にfalsyを返します
• Perlではandは短絡評価します
  • つまり、andの左辺がfalsyならば右辺は評価されません