Perl如何将字符串中非匹配的内容替换为空值

需求是从字符串中仅保留匹配指定规则的子串，将其余部分替换为空。你提供的示例代码存在正则语法问题，以下是修正后的实现方案：

原始代码（存在问题） #

$variable = "dx_app1_admin-101-102-prod;dx_app1_read-101-102-prod;dx_app2_admin-101-102-prod;dx_app2_admin-101-102-read;dx_app3_admin-101-102-prod;dx_app3_read-101-102-prod;";

$variable =~ s/?!(dx_app1_admin-101-102-prod;|dx_app1_read-101-102-prod;)//g;

print $variable;

问题分析 #

你使用的?!是负向预查，但单独使用无法正确定位要移除的内容，正则语法不完整，达不到预期效果。正确思路是匹配所有内容但仅捕获需要保留的子串，或反向匹配并移除不需要的部分。

修正后的代码 #

方案一：通过捕获保留目标子串，替换时仅保留捕获内容

my $variable = "dx_app1_admin-101-102-prod;dx_app1_read-101-102-prod;dx_app2_admin-101-102-prod;dx_app2_admin-101-102-read;dx_app3_admin-101-102-prod;dx_app3_read-101-102-prod;";

# 遍历字符串，仅保留指定的两个目标子串
$variable =~ s/.*?(dx_app1_admin-101-102-prod;|dx_app1_read-101-102-prod;)?/$1/g;

print $variable;

方案二：反向匹配，直接移除不符合要求的子串

my $variable = "dx_app1_admin-101-102-prod;dx_app1_read-101-102-prod;dx_app2_admin-101-102-prod;dx_app2_admin-101-102-read;dx_app3_admin-101-102-prod;dx_app3_read-101-102-prod;";

# 匹配所有非目标子串并清空
$variable =~ s/(?!dx_app1_(admin|read)-101-102-prod;).*?;//g;

print $variable;

预期输出 #

dx_app1_admin-101-102-prod;dx_app1_read-101-102-prod;

内容的提问来源于stack exchange，提问作者venkata prasad