qr

---

qr/STRING/OPTION

　正規表現を変数に格納できるようになります。
　正規表現は可能であれば自動的にコンパイルされるので、繰り返し利用される場合は高速に処理されます。

use strict;
use warnings;

my $ext = qr/\.png$/;

my @files = qw(
    web.config
    readme.txt
    icon.png
    manual.pdf
    index.html
    Header.PNG
);

foreach my $file (@files) {
    if ($file =~ $ext) {
        print $file, "\n";
    }
}

use strict;
use warnings;

my $ext = qr/\.png$/i; # オプションの指定が可能

my @files = qw(
    web.config
    readme.txt
    icon.png
    manual.pdf
    index.html
    Header.PNG
);

foreach my $file (@files) {
    if ($file =~ $ext) {
        print $file, "\n";
    }
}

---

関連項目

・mマッチ演算子
・s置換演算子