my $some_other = " I dream of betty rubble.";
if ($some_other =~ /\bru\b/){
print "Aye, there's the ru.\n"
}
=~绑定操作符是针对左边的字符串来匹配,若没有绑定操作符,绑定操作符会使用默认的$_来匹配。
5)模式串中的内插
正则表达式里可以进行双引号形式的内插,但是在模式匹配中也可以内插:
[code = "perl"]
my $what = "larry";
while (<>){
if (/^($what)/){
print "We saw $what in beginning of $_;
}
}
6)捕获变量
捕获功能指的是:把(圆括号中模式所匹配的)部分字符串暂时记下来的能力。
因为捕获变量存储的都是字符串,所以他们都是标量变量。在Perl中,他们的名字类似 $1、$2、$3....
[ code = "perl"]
$_ = "Hello there, neighbor";
if (/\s(w+),/){
print "The word was $1\n";
}