开始正则表达式和结束正则表达式之间的perl替换

作者: 甲基蓝
发布时间: 2024-10-18 04:11:26 (18天前)
转自：

3 条回复

0#
回复此人
一别而尽几念深i | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> 您需要全局替换但仅在标记模式中的复杂性可以通过捕获该子字符串并在替换部分中对其运行正则表达式来处理 <pre> <code> my $s = q(a1b x and x c2d x more x a22b x again x c33d x and x); $s =~ s/a.*?b\K(.*?)(?=c.*?d)/$1=~s{x}{y}gr/eg; say $s; </code> </pre> 我用 <code> \K </code> 在左标记图案之后（ <code> a.*?b </code> ）删除先前的匹配和前标记的右标记模式（ <code> c.*?d </code> ），所以不要复制那些，但为了简单起见，你可以捕获它们并使用数字变量（ <code> $N </code> ）为他们取代。 如果模式重复，请考虑捕获正确的标记（而不是前瞻）;然后，对于额外的数据复制，子模式不会重复扫描，整体正则表达式更清晰，原则上更安全（右标记可能包含左标记吗？）。这确实使更换部件复杂化，其中 <code> $2 </code> 需要在新的正则表达式之前保存，因为它在其中被重置。 请注意 <code> /r </code> 更换部件的正则表达式中的修饰符：除了非常方便之外，它还允许我们使用 <code> s/// </code> 在...上 <code> $1 </code> 变量，否则我们不能做，因为它是只读的。 如果这是更复杂的正则表达式处理的一部分，请注意前瞻是零宽度 断言 所以引擎不消耗该模式并且不通过它。如果整个模式重复，则这很重要：如果右标记可能包含左标记，则必须捕获它以使引擎移动经过它以进行下一次匹配，以便左标记首先出现。 <HR /> 这适用于标记模式的变量，您可以很好地使用它们 <pre> <code> my $start = qr/a.*?b/; my $end = qr/c.*?d/; my $s = q(a1b x and x c2d x more x a22b x again x c33d x and x); $s =~ s/$start\K (.*?) (?=$end)/ $1 =~ s{x}{y}gr /egx; say $s; </code> </pre> 由于礼貌，我在那里间隔图案以便于阅读 <code> /x </code> 。它打印 <pre> a1b y and y c2d x more x a22b y again y c33d x and x </pre> </DIV>

编辑
1#
回复此人
甲基蓝 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> 你可以使用 <code> /e </code> 修改为执行代码（分别为每个匹配）生成替换字符串： <pre> <code> use strict; use warnings; my $start_regex = qr/a.*?b/; my $end_regex = qr/c.*?d/; my $string = 'a1b x c2d x a345b qqxxxc678d xx abxcd'; $string =~ s/($start_regex)(.*?)($end_regex)/ my ($start_match, $middle_match, $end_match) = ($1, $2, $3); $middle_match =~ s!x!y!g; $start_match . $middle_match . $end_match /eg; print $string, "\n"; </code> </pre> 将打印出来 <pre> <code> a1b y c2d x a345b qqyyyc678d xx abycd </code> </pre> 请注意备用正则表达式分隔符 <code> s!!! </code> 在内部正则表达式。 存储它是很重要的 <code> $1 </code> ， <code> $2 </code> 和 <code> $3 </code> 临时变量中的外部正则表达式匹配，因为当您在替换代码中执行另一个正则表达式时它们将丢失。 </DIV>

编辑

登录后才能参与评论