如何在替换操作的正则部分插入变量？及代码报错修复咨询

在Raku（原Perl 6）里把变量嵌入替换的正则部分其实挺直观的，分两种常见场景处理：

• 如果变量本身是Regex对象：直接把变量传给替换方法的正则参数就行，不用额外包裹。举个例子：

  my $target = "hello world hello";
  my $pattern = /hello/;
  $target.=subst($pattern, "hi", :g); # 全局替换所有"hello"为"hi"
  say $target; # 输出 hi world hi
  

• 如果变量是字符串形式的正则模式：先用rx//构造器把字符串转成Regex对象，再用在替换里：

  my $target = "123 abc 456";
  my $pattern-str = "\d+"; # 匹配数字的字符串模式
  my $regex = rx/$pattern-str/;
  $target.=subst($regex, "NUM", :g);
  say $target; # 输出 NUM abc NUM
  

另外，要是你想直接在正则字面量里插值字符串变量，直接写就行，比如：

my $word = "world";
my $str = "hello world";
$str.=subst(/$word/, "there");
say $str; # 输出 hello there

咱们先拆解你代码报错的原因，再给修复方案：

你遇到的「字符串上下文中使用了Nil」错误，根源是<$regex>这个写法用错了——这是Raku里调用命名捕获规则的语法，不是引用你定义好的Regex对象。因为$regex不是预定义的命名规则，所以这个正则根本匹配不到内容，导致$0捕获到Nil，当尝试把Nil当作字符串用的时候就报错了。

另外还有个小细节：subst的替换块里虽然$0是捕获值，但确保逻辑清晰的话，直接返回它就好。

修复后的代码如下：

my $str = "start middle end";
my $regex = / start ( .+ ) end /;
$str.=subst($regex, { $0 }); # 直接传入$regex，去掉多余的<>包裹
say "[$str]"; # 输出 [middle]

如果你的替换逻辑很简单（像这里只是用捕获内容替换整个匹配），还可以省略块，直接写$0：

my $str = "start middle end";
my $regex = / start ( .+ ) end /;
$str.=subst($regex, $0);
say "[$str]"; # 同样输出 [middle]

要是后续需要全局替换多个匹配，记得加上:g参数，比如$str.=subst($regex, { $0 }, :g);

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