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