如何在Raku程序中实现部分匹配以提取有效名称？

原程序的核心问题在于TOP规则要求输入完全由有效名称加空白组成，一旦遇到无法被name token匹配的内容，整个解析就会失败并返回Nil。要实现跳过无效内容、提取有效名称的需求，需要修改语法规则，让解析器具备容错能力，遇到无效内容时跳过而非终止解析。

修改后的代码方案 #

方案1：通用容错匹配（适配任意位置的无效内容）

grammar Names {
  token TOP {
    [ <name> || .*? ]*  # 循环匹配：要么捕获有效名称，要么非贪婪跳过任意内容
    <.ws>*              # 处理输入末尾的空白字符
  }
  token name { <:alpha>+ }
}

# 解析文件并提取所有有效名称
my $parse-result = Names.parsefile('names.txt');
say $parse-result<name>;  # 输出：(Andrea John)

方案2：针对行级无效内容优化（适配每行一个条目场景）

如果无效内容都是整行存在的（如示例中的99999999单独一行），可以用更高效的规则跳过整行无效内容：

grammar Names {
  token TOP {
    [ <name><.ws> || <-[\n]>+<\n> ]*  # 要么匹配名称加换行/空白，要么跳过整行非换行内容
  }
  token name { <:alpha>+ }
}

my $parse-result = Names.parsefile('names.txt');
say $parse-result<name>;  # 输出：(Andrea John)

关键修改说明 #

• 原TOP规则[<name><.ws>]+是严格全量匹配，要求输入每一部分都符合规则，否则解析失败；
• 修改后的规则采用交替匹配逻辑：优先匹配有效名称并捕获，遇到不匹配的内容时直接跳过，确保解析能覆盖整个输入文件；
• 解析完成后，通过$parse-result<name>可以直接获取所有被name token成功匹配的有效名称列表。

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