将正则表达式传递给perl子例程

要创建一个正则表达式以供以后使用,我们使用qr //:

my $regexp = qr/^Perl$/;

这将编译正则表达式以供以后使用.如果您的正则表达式出现问题,您会立即听到它.要使用此预编译的正则表达式,您可以使用以下任何一种方法:

# See if we have a match
$string =~ $regexp;

# A simple substitution
$string =~ s/$regexp/Camel/;

# Comparing against $_
/$regexp/;

amon.. 5

一个简单的正则表达式文字像/.../匹配再次$_.要创建独立的正则表达式对象,请使用qr//引号:

repeat(qr/foo|bar/i, "y");

(&sub除非你知道何时以及为何需要,否则请不要调用潜艇.)