Raku Regex 捕获和修改 LFM 代码块

Question

更新：更正下方添加的代码

我有一个名为sample.md的Leanpub风格的markdown*文件我想使用Raku Regex将它的代码块转换成Github风格的markdown风格@

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;
}

包含正则表达式的行给出 无法修改不可变 Pair (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"}

Answer 1

TL;DR

• TL? 然后阅读@jjemerelo 的出色答案，它不仅提供了单行 解决方案，而且还以紧凑的形式提供了更多；

• DR? 哦，我认为你在这个答案中遗漏了一些 JJ（合理地！）忽略的好东西。不过，JJ 是炸弹。先去读吧。 :)

使用 Perl 正则表达式

正则表达式有很多方言。您使用的正则表达式模式是 Perl 正则表达式，但您没有告诉 Raku。因此，它将您的正则表达式解释为 Raku 正则表达式，而不是 Perl 正则表达式。这就像将 Python 代码提供给 perl。所以错误信息是没有用的。

---

一种选择是切换到 Perl 正则表达式处理。为此，此代码：

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

一开始需要m :P5：

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

m 在假定您的意思是立即匹配的上下文中使用 /.../ 时是隐含的，但因为添加了 :P5“副词”以修改 Raku 解释正则表达式中模式的方式，还必须添加m。

:P5 仅支持一组有限的 Perl 正则表达式模式。也就是说，对于您在问题中编写的正则表达式应该足够了。

使用 Raku 正则表达式

如果您想使用 Raku 正则表达式，您必须学习 Raku 正则表达式语言。

Raku 正则表达式语言的“精神”与 Perl 相同，一些绝对的基本语法与 Perl 相同，但它的不同之处足以让您将其视为另一种正则表达式方言，只是一种相对于 Perl 的正则表达式，通常是“加电”。

要以 Raku 格式重写正则表达式，我认为应该是：

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

（利用 Raku 正则表达式中的空白被忽略的事实。）

代码中的其他问题

修复正则表达式后，您的代码中会遇到其他问题。

我遇到的第一个问题是$key是只读的，所以$key++失败了。一种选择是通过写入-> $key is copy ... 使其可写，这使得$key 成为.kv 传递的索引的读写副本。

但修复它会导致另一个问题。而且代码太复杂了，我得出的结论是，我最好不要再追究下去了。我已经解决了您的直接障碍，希望对您有所帮助。

Answer 2

这条单线似乎解决了问题：

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

让我们试着解释一下发生了什么。该错误是一个正则表达式语法错误，由 : 后跟一个名称引起，并且所有这些都在一个花括号内。 {} 在正则表达式中运行代码。 Raiph 的答案（显然）是正确的，方法是将其更改为 Perl 正则表达式。但是我在这里所做的是将其更改为 Raku 的 non-destructive substitution，并带有 :g 全局标志，以使其作用于整个文件（在行尾嘀咕；我已将其保存到名为text.md 的文件）。因此，它的作用是使用given 将您的目标文件保存在$_ 主题变量中，并在替换完成后打印。好消息是，如果您想进行更多替换，可以将另一个这样的表达式推到前面，它将作用于输出。 使用这种表达式在概念上总是比逐行处理文本更简单，甚至可能更快。