如何安全转义Raku正则元字符？Glob转Raku正则方案验证

一、当前转义方式的问题 #

你当前的实现存在错误转义和场景遗漏，具体问题如下：

• 错误转义非必要内容：\W包含空格、波浪线(~)这类在正则中本身就表示字面意义的字符，给它们加反斜杠属于冗余操作；更严重的是，如果Glob模式包含字符类（比如[abc]），[和]会被转义成\[和\]，直接破坏Glob字符类的功能——原本匹配a/b/c任意一个字符的规则，会变成匹配字面的[abc]字符串。
• 逻辑方向有误：这种基于非单词字符的转义逻辑是反向的，应该只转义正则元字符而非所有非单词字符。虽然\W覆盖了大部分正则元字符，但如果未来正则新增元字符，这种逻辑会直接失效；同时也会把一些不需要转义的非单词字符（比如空格）强行转义，生成冗余的正则表达式。

不过你的代码中优先匹配?和*的顺序是对的，确保Glob的通配符被优先转换成对应正则规则，而非被当成非单词字符转义。

二、关于Raku中quotemeta的替代方案 #

Raku确实移除了Perl 5的quotemeta，但有更精准的替代方式：

• 如果只是要在正则中匹配字面字符串，不需要手动生成转义后的字符串，直接用:quotemeta副词即可：

  my $glob-literal = "file?.txt";
  if $filename ~~ m/:quotemeta $glob-literal/ { ... }
  

• 如果必须生成转义后的正则字符串，应该直接针对正则元字符进行转义，而非基于非单词字符：

  sub glob-to-regex(Str $glob) {
      $glob.subst(:global, /<[\\^$.|+*?()[\]{}]>/, { "\\$_" })
            .subst(:global, '?', '.')
            .subst(:global, '*', '.*');
  }
  

  这个逻辑更可靠：先转义所有正则元字符，再替换Glob通配符为对应正则语法，避免了错误转义非元字符的问题。

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