用零宽度断言匹配字符串中的特定位置

1. 用\b判断单词边界

注意：在写正则表达式时，如果将\w与\s或者\W 与\S连用，就有可能出现问题。如果一定要用，至少先检查仔细

my ($user,$tty) = /(\S+)\s+(\S+)/;  #匹配who输出内容提取用户名陈和终端名称

如果不确定\b和\B会在何处匹配，试着用替换操作将这些地方标出来:

my $text = q(What's a "word" boundary?);

(my $btext = $text) =~ s/\b/:/g;
(my $Btext = $text) =~s/\B/:/g;

 

2.用^或\A匹配起始位置

^通常用来匹配字符串的起始位置。 许多人误以为这是“行起始”锚点。

my $string = << 'HERE' ;
This is a line
That is another line
And a final line
HERE

#每行起始位置的单词
my (@matches) = $string =~ m/^(\w+)/mg;

多行模式下，如果只匹配整个字符串的起始位置，可以用\A定位。

 

3.用$或\z匹配结束的位置

$通常用于匹配字符串结束位置，即便此处有换行符也能匹配:

if ( "some text\n" =~ /text$/ ) {
    print "Matched 'text'\n";
}

如果删除字符串里的换行符，它依然能匹配。

Perl 有个专门用于匹配字串末位的锚位操作符\z。

if ("some text\n" =~ /text\z/ ) { #失败
  print "Matched 'text'\n";
}

转载于:https://www.cnblogs.com/tjxwg/archive/2013/04/01/2993620.html