qr EXPR |
這個操作符引用的字符串STRING作為一個正則表達式。STRING被內插在m/ PATTERN / PATTERN相同的方式。
返回一個Perl值可以使用的,而不是相應的/STRING/表達。
$rex = qr/my.STRING/is; s/$rex/foo/; is is equivalent to s/my.STRING/foo/is;
該結果可以被用作子模式中的匹配:
$re = qr/$pattern/;
$string =~ /foo${re}bar/; # can be interpolated in other patterns
$string =~ $re; # or used standalone
$string =~ /$re/; # or this way