この演算子はSTRINGを正規表現としてクォートします (可能ならコンパイルします)。引数STRINGはm/PATTERN/内のPATTERNと同様に文字変換されます。 ダブルクォーテーション( " )がデリミタとして使用された場合、文字変換は行われません。 簡単な使い方 # $patternの値を正規表現としてクォート $re = qr/$pattern/; # qrの返却値を利用してマッチング $string =~ /$re/; 上記のように、qrの返却値はパターンマッチのサブパターンとして使えます。 Perlはqr演算子を実行する際にパターンをコンパイルするので、qrを使うことでいくつかの場面で速度的に有利になります。特にqrの結果が独立して使われる場合に有利になります。 sub match { my $patterns = shift; # $patternsの値(複数)を一括して