Perl只替换树中的顶级数字

Question

我是这个网站的新手。这是一个困扰我多年的问题

((A:14,B:43):22,C:76,(D:54,(E:87,F:28):17):35);

树可以有多个级别，用括号表示。现在我想在顶层数字（分支长度）上加一个数字，比如10。这里只有三个顶级数字：22、76、35。转换后，字符串应如下所示：

((A:14,B:43):32,C:86,(D:54,(E:87,F:28):17):45);

我尽了最大努力想出了一个合适的正则表达式，但最终承认了自己的局限性。怎么才能做到呢？

Answer 1

这需要一个递归正则表达式来匹配嵌套的括号。

首先定义一个“key”，它可以是一串大写字母，也可以是括号中任意数量的key:value对。

然后找到所有键，后跟一个冒号和一个十进制数，并对该数字进行算术运算。

use strict;
use warnings;

my $str = '((A:14,B:43):22,C:76,(D:54,(E:87,F:28):17):35)';

my $key = qr/ (?<key> [A-Z]+ | \( (?&key) : \d+ (?: , (?&key) : \d+ )* \)  ) /x;

$str =~ s/$key : \K ( \d+ ) /$2 + 10/xge;

print $str;

输出

((A:14,B:43):32,C:86,(D:54,(E:87,F:28):17):45)

Answer 2

虽然我会选择解析整棵树，但当只使用正则表达式时，这个问题可以得到解决：

use strict; use warnings; use feature qw(say);
my $string = "((A:14,B:43):22,C:76,(D:54,(E:87,F:28):17):35)";
$string =~ s/^\(//;
$string =~ s/\)$//;
$string =~ s{
    \G ((?&PRELEM)) : (\d+) (,|$)
    (?(DEFINE)
        (?<SUBLIST> [(] (?&ELEM)(?:,(?&ELEM))* [)] )
        (?<ELEM> (?&PRELEM) : \d+ )
        (?<PRELEM> (?:[A-Z]|(?&SUBLIST)) )
    )
 }{"$1:".($2+10).$3}gex;
 say "($string)";

打印（（A:14，B:43）：32，C:86，（D:54，（E:87，F:28）：17）：45）。

我为自上而下的递归解析定义了一个小语法，请根据需要进行调整。在顶层，我们有一些无趣的Pre元素，我们将它们存储在$1中，它们可以是单个字母，也可以是用括号括起来的树。一个：后面是我们想要增加的数字，存储在$2中。它后面是字符串的结尾或逗号。我们以迭代方式进行匹配，从最后一个匹配开始（由/g选项和\g断言表示）。当我们构建替换字符串（我们使用/e选项）时，就会发生添加。

Answer 3

s/(?:^\(|(\((?:(?>[^()]*)|(?1))*\)))\K|:\K([0-9]+)/$2?$2+10:""/ge

匹配要跳过的内容或前面有：的数字。

你想跳过的是前面的（）或任何平衡的括号集（平衡的括号regex几乎是从perlre字面上取下来的）。

在替换中，如果要修改的数字匹配，则添加10，否则不匹配。

但是你最好不要聪明，而是去解析、修改和重新定义你的树。