仅当组匹配时才进行多行字符串替换-解网

问：

如何仅在组与模式匹配时才对多行字符串执行单行单语句替换？

我需要引用“值”（类似 YAML 的文档），如果它们包含或等于 .请考虑下面的（非工作）代码：:-

$data =~ s/^(\s*\S+): (.+)$/$1: '$2'/mg if $2 =~ /:/ || $2 =~ /^\-$/;

示例输入文本字符串

    data:
        normal: text
        timestamp: Wed Aug 23 07:07:07 2023
        time-zone: UTC +03:00, Daylight Saving: +0h
        type: -
        duration: 45h 8m 41s

所需输出

    data:
        normal: text
        timestamp: 'Wed Aug 23 07:07:07 2023'
        time-zone: 'UTC +03:00, Daylight Saving: +0h'
        type: '-'
        duration: 45h 8m 41s

工作代码 - 我想用更优雅的形式替换它

my @lines = split "\n", $data;
foreach my $i (0 .. $#lines) {
  my $line = $lines[$i];
  if ($line =~ /^(\s*\S+): (.+)$/) {
    my $key = $1;
    my $val = $2;
    $lines[$i] = "$key: '$val'" if $val =~ /:/ || $val =~ /^\-$/; # quote invalids
  }
}
$data = join "\n", @lines;
say $data;

正则表达式 Perl

现在我们需要一个文字空格而不是（在第一行之后），因为也匹配换行符，并且在第一行（后面没有任何内容）出错，使其向下搜索下一行。对于文字空格，它无法与换行符匹配，并且将放弃第一行并从下一行重新开始匹配。为了清楚起见，我喜欢文字空格（）的字符类，然后还添加了一个制表符，所以.\s:\sdata:^[ ][\t ]

在这里，我们还需要将模式限制在一条线上，否则贪婪的人会啜饮更多。使用修饰符时，（和）应用于字符串内的行（如果没有修饰符，它们仅锚定整个字符串，而不是内部的行）。在这里，我们还需要继续浏览字符串，进行更改。.*/m$^/g

在程序内部，单引号不是问题，因为它们在命令行上，所以现在我们不需要对它们使用十六进制。'

我在这里使用 doc 来介绍多行字符串，带有单引号，因为我们显然想要文字文本。

或者，为了避免这些微妙之处，并且仍然逐行处理，将字符串分解为行，对每行运行正则表达式，然后通过连接换行符（如果需要）来重新组合

$data = join "\n",
    map { s/^.+?:\s\K (.*[:-].*)$/'$1'/xr } 
    split /\n+/, $data;

这消除了可能的空行（在显示的示例数据中没有空行），因为 I 在所有连续（with ）.如果这是不希望的，请使用（否）和空行。split\n+split /\n/+

如果不需要将其重新组合成多行字符串 - 或者无论如何都需要单独的行 - 则赋值给数组（而不是 -ing 并赋值回）。join$data

现在我们再次需要修饰符，以便 in 中的块返回（更改的或原始的）字符串，而不是（nor ）。/rmap/g/m

仅当组匹配时才进行多行字符串替换

multi-line string substitution only if group matches

评论

评论