时间戳

首页 > 解决方案 > 替换中的空白替换将匹配的字符串更改为空

regex - 替换中的空白替换将匹配的字符串更改为空

问题描述

我正在尝试遵循一段代码。基本上，根据我的理解，这段代码不应该改变 $data 。我错过了什么吗？我正在使用 5.22.3（草莓 perl）。

use strict;
use warnings;
use 5.010;
my $data = 'we are here';
$data =~ s///g;
print "DATA1: $data\n";
$data =~ s{(we)}{
    my $x1 = $1;
    $x1 =~ s///g;
    print "x1: ^^$x1^^\n";
    "$x1"
}e;
print "DATA2: $data\n";

O/P-

DATA1: we are here
x1: ^^^^
DATA2:  are here

标签： regexperlsubstitution

解决方案

除非使用 by split，否则空模式会告诉匹配/替换运算符使用最后一个模式来成功匹配。

例如，

$ perl -e'$_ = "abba"; s//c/g if /a/ || /b/; CORE::say;'
cbbc

这意味着

$x1 =~ s///g;

相当于

$x1 =~ s/(we)//g;

要绕过该异常，您可以使用

$x1 =~ s/(?:)//g;

说你的真实情况使用

$re = ...;
s/$re//g;

你可以使用

$re = ...;
s/(?:$re)//g;

或者

$re = ...;
$re = qr/$re/;
s/$re//g;

报价perlop ,

空模式 //

如果PATTERN计算结果为空字符串，则使用最后成功匹配的正则表达式。在这种情况下，只有空模式上的g和c标志被接受；其他标志取自原始模式。如果之前没有匹配成功，这将（默默地）充当真正的空模式（它将始终匹配）。

推荐阅读