説明 正規表現を変数に格納できるようになります。 可能であれば正規表現はコンパイルされるので,繰り返し利用される場合は高速に処理されます。 使用例 #!/usr/bin/perl use strict; use warnings; my $regexp = qr/\.pdf$/; my @files = qw( data.pdf img1.png img2.PNG sample.PDF index.html DEFAULT.HTM ); foreach my $file (@files) { if ($file =~ $regexp) { print $file, "\n"; } } #!/usr/bin/perl use strict; use warnings; my $regexp = qr/\.pdf$/i; # オプションを指定できる my @files = qw( data.p
![qr](https://cdn-ak-scissors.b.st-hatena.com/image/square/bed39b5962a5d552c95b6d796db8f55e72d32943/height=288;version=1;width=512/https%3A%2F%2Fxtech.nikkei.com%2Fimages%2Fn%2Fxtech%2F2020%2Fogp_nikkeixtech_hexagon.jpg%3F20220512)