Perl正则表达式找到一个确切的单词

Question

我想在我的代码中找到单词sprintf。应该使用哪些Perl正则表达式？ 有几行文字有sprintf_private，我想排除，但只需要sprintf。

Answer 1

您必须在写着边框\b：

/\bsprintf\b/ 

Answer 2

如果你想找到的行sprintf所有出现不包含sprintf_private，你可能会使用一对正则表达式的：

while(my $line = <DATA>) { 
    next if $line =~ m/\bsprintf_private\b/; 
    while($line =~ m/\bsprintf\b/g) { 
     print "[sprintf] found on line $. at column $-[0]\n"; 
    } 
} 

这首先拒绝包含sprintf_private的任何行。然后对不包含该不合格者的线路进行扫描，查找所有出现的sprintf。无论发现何处，都会打印一条消息，标识文件中的行和发现sprintf的匹配的起始列。

$.和@-特殊变量在perlvar中描述。有关正则表达式的一些很好的阅读可以在perlrequick和perlretut中找到。第一个正则表达式非常简单;它只是使用零宽度断言来确保不合格子字符串在其每一侧都有一个字边界。第二个正则表达式使用相同的技术，但也适用于/g修改器以迭代所有出现的sprintf，以防万一每行出现多次出现。

零宽度断言\b匹配\w\W或\W\w转换发生的任何地方。由于字符类别\w包含所有字母字符（其中什么构成“全部”取决于您的unicode_strings标志或/u），加上下划线和数字数字（即任何字符在标识符中是允许的），您可能会发现\b字边界太严格了。如果您发现“简单”的解决方案是太天真了一种方法，你可以多走一英里，真正缩小东西应该有资格作为一个单词边界通过使用正则表达式看起来像这样：

(?<!\p{Alpha})sprintf(?!\p{Alpha}) 

如果你选择走这条路线，解决方案应该是这样的：

while(my $line = <DATA>) { 
    next if $line =~ m/(?<!\p{Alpha})sprintf_private(?!\p{Alpha})/; 
    while($line =~ m/(?<!\p{Alpha})sprintf(?!\p{Alpha})/g) { 
     print "[sprintf] found on line $. at column $-[0]\n"; 
    } 
} 

这使用了拒绝比赛零宽度负回顾后，零宽度负预测先行断言在字符立即向左或主子权是“阿尔法”字符，而不是使用稍微天真的\b。