更新：下面添加了更正的代码

我有一个Leanpub 风格的Markdown * 文件，sample.md我想使用以下命令将其代码块转换为Github 风格的 Markdown风格Raku Regex

Here's a sample **ruby** code, which
prints the elements of an array:

{:lang="ruby"}
    ['Ian','Rich','Jon'].each {|x| puts x}

Here's a sample **shell** code, which
removes the ending commas and
finds all folders in the current path:

{:lang="shell"}
    sed s/,$//g
    find . -type d

为了捕获lang值，例如ruby 从{:lang="ruby"}并将其转换为

```ruby

我用这个代码

my @in="sample.md".IO.lines;
my @out;
for @in.kv -> $key,$val {
    if $val.starts-with("{:lang") {
       if $val ~~ /^{:lang="([a-z]+)"}$/ { # capture lang
           @out[$key]="```$0"; # convert it into ```ruby
           $key++;
           while @in[$key].starts-with("    ") {
                 @out[$key]=@in[$key].trim-leading;
                 $key++;
           }
           @out[$key]="```";
       }
    }
    @out[$key]=$val;
}

包含 Regex 的行给出了
无法修改不可变对 (lang => True)错误。

我刚开始使用正则表达式。而不是([a-z]+)我试过了(w)，它给出了Unrecognized backslash sequence: 'w'错误，除此之外。

如何lang使用正则表达式正确捕获和修改值？

• 刚刚估计的 LFM 格式

更正的代码：

my @in="sample.md".IO.lines;
my len=@in.elems;
my @out;
my $k = 0;

while ($k < len) {
    if @in[$k] ~~ / ^ '{:lang="' (w+) '"}' $ / { 
    push @out, "```$0";
    $k++;
    while @in[$k].starts-with("    ") {
        push @out, @in[$k].trim-leading;
        $k++;   }
    push @out, "```";
    }
    push @out, @in[$k];
    $k++;
}

for @out {print "$_n"}

回答

      /^{:lang="([a-z]+)"}$/

m :P5 /^{:lang="([a-z]+)"}$/

/ ^ '{:lang="' (<[a..z]>+) '"}' $ /

回答

say S:g /{: "lang" = " (w+) " } /```$0/ given "text.md".IO.slurp;