正規表現演算子 qr//

構文

• qr/STRING/msixpodualn

解説

[Perlop の翻訳です]

qr// は、STRING を正規表現としてクォート（可能ならコンパイル）します。 STRING は m/PATTERN/ の PATTERN と同じように補完されます。 もし "'" が区切り文字に使われたら、一切の変数補完は行われません。 対応の /STRING/msixpodualn 表現の代わりに使うことができる Perl 値を返します。 その戻り値とは元のパターンを正規化したものとなります。 同じ文字を含む文字列とは不思議なことに異なります。 というのも、ref(qr/x/) は "Regexp" を返します。 そのデリファレンスに関してはっきりと定義されていません（今のところ元のパターンが正規化されたものが得られますが、 これは変更されるかもしれません）。

$rex = qr/my.STRING/is;
print $rex;    # (?^si:my.STRING) と出力される
s/$rex/foo/;

上記のコードは、次のコードと同等です。

s/my.STRING/foo/is;

qr// の結果は、サブパターンとして使うこともできます。

$re = qr/$pattern/;
$string =~ /foo${re}bar/;    # パターンの一部としても利用可能
$string =~ $re;              # スタンドアローンでも利用可能
$string =~ /$re/;            # この方法でも利用可能

Perl は qr() 演算子の実行時にそのパターンをコンパイルすることがあります。 そのため、qr() を使うと、とりわけ qr() の結果がスタンドアローンで使われた場合、 状況によっては処理速度が速くなるかもしれません。

    sub match {
        my $patterns = shift;
        my @compiled = map qr/$_/i, @$patterns;
        grep {
            my $success = 0;
            foreach my $pat (@compiled) {
                $success = 1, last if /$pat/;
            }
            $success;
        } @_;
    }

qr() によってパターンを内部表現に事前コンパイルすることで、 /$pat/ が評価されるたびにパターンの再コンパイルの必要性を回避しています。 （Perl は他にも多くの内部最適化を持ち合わせていますが、qr() 演算子を使わなかったら、 前述の例の中ではどの最適化も行われないでしょう。）

qr// に指定できるオプションは下表のとおりです。

事前コンパイルされたパターンがより大きなパターンに組み込まれているなら、"msixpluadn" の効果は適切に伝搬します。 /o 修飾子が持つ効果は伝搬せず、それを明示的に使うことで、その効果はそれらのパターンに制限されます。

/a, /d, /l, /u 修飾子（Perl 5.14 で追加）は、 文字セットのルールを制御しますが、明示的に指定したくなるのは /a だけでしょう。 他の 3 つは様々なプラグマによって自動的に選択されます。

STRING の正当な構文に関するさらなる情報、そして、正規表現のセマンティクスの詳細については perlre をご覧ください。 今ではもう使われなくなった /o を除くすべての修飾子は、 perlre の "Modifiers" で詳しく解説されています。