Perl qr 函数
描述
此函数将其 STRING 引用为正则表达式。 STRING 的插值方式与 m/PATTERN/ 中的 PATTERN 相同
语法
以下是此函数的简单语法 −
qr EXPR
返回值
这个函数返回一个 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
