求助：理解Perl后向断言以实现指定模式的筛选

原代码的核心问题 #

你的Perl代码无法得到预期结果，主要有以下几个原因：

1. 正则表达式方向错误：原正则((?<!\b(a|the)\b) pro [a-z]+)是在匹配pro后面跟小写单词的结构，但你需要的是单词 + pro的短语（比如going pro）。
2. 未限制匹配范围：原正则没有针对整行内容做约束，且/g修饰符在此场景下多余（无需在单条文本中多次匹配）。
3. 变量未正确声明：循环变量$textLine未用my声明，属于不良编程习惯。

修复方案 #

以下提供两种可行的修复方式，均能正确筛选出going pro和staying pro：

方案一：使用正则直接匹配目标结构

my @proFilter = ("a pro linebacker","a pro review","the pro not playing like a pro","going pro","staying pro");

foreach my $textLine (@proFilter)
{
    # 匹配整行是「非a/the的单词 + pro」的结构
    if($textLine =~ /^(\b(?!a|the)\w+ pro)$/)
    {
        print "$1\n"; 
    }
}

正则解释：

• ^ 和 $：约束匹配范围为整行文本
• \b(?!a|the)\w+：匹配不以a或the开头的完整单词
• pro：匹配紧跟的空格和pro

方案二：拆分判断逻辑（更易读）

my @proFilter = ("a pro linebacker","a pro review","the pro not playing like a pro","going pro","staying pro");

foreach my $textLine (@proFilter)
{
    # 先判断是否是「单词 + pro」的两行结构
    if($textLine =~ /^(\w+) pro$/)
    {
        my $first_word = $1;
        # 排除第一个单词是a或the的情况
        print "$textLine\n" unless $first_word =~ /^(a|the)$/;
    }
}

两种方案运行后都会输出：

going pro
staying pro

内容的提问来源于stack exchange，提问作者Chris Chris