Perl Regex 删除连字符但忽略特定的连字符

Question

我有一个 perl 正则表达式，可以将连字符转换为空格，例如：-

$string =~ s/-/ /g;

我需要修改它以忽略特定的连字符短语，而不是替换连字符，例如在这样的字符串中：

"use-either-dvi-d-or-dvi-i"

我不希望替换 dvi-d 和 dvi-i 中的连字符，所以它显示为：

"use either dvi-d or dvi-i"

我尝试了各种负面的前瞻匹配，但都失败了。

Answer 1

您可以将此 PCRE 正则表达式与动词 (*SKIP)(*F) 一起使用以跳过匹配中的某些单词：

dvi-[id](*SKIP)(*F)|-

RegEx Demo

由于使用了(*SKIP)(*F)，这将跳过单词dvi-i和dvi-d进行拆分。

对于您的代码：

$string =~ s/dvi-[id](*SKIP)(*F)|-/ /g;

Perl Code Demo

---

还有一个基于替代外观的解决方案：

/(?<!dvi)-|-(?![di])/

这基本上意味着如果它前面没有dvi或者如果它后面没有d或i，则匹配连字符，因此当我们在LHS上有dvi时确保不匹配-和[di] 在 RHS 上。

Perl 代码：

$string =~ s/(?<!dvi)-|-(?![di])/ /g;

Perl Code Demo 2

Answer 2

$string =~ s/(?<!dvi)-(?![id])|(?<=dvi)-(?![id])|(?<!dvi)-(?=[id])/ /g;

仅使用(?<!dvi)-(?![id]) 时，您还将排除dvi-x 或x-i，其中x 可以是任何字符。

Answer 3

您不太可能得到一个简单直接的正则表达式解决方案。但是，您可以尝试以下方法：

#!/usr/bin/env perl

use strict;
use warnings;

my %whitelist = map { $_ => 1 } qw( dvi-d dvi-i );

my $string = 'use-either-dvi-d-or-dvi-i';

while ( $string =~ m{ ( [^-]+ ) ( - ) ( [^-]+ ) }gx ) {
    my $segment = substr($string, $-[0], $+[0] - $-[0]);
    unless ( $whitelist{ $segment } ) {
        substr( $string, $-[2], 1, ' ');
    }
    pos( $string ) = $-[ 3 ];
}

print $string, "\n";

@- 数组包含匹配组的起始偏移量，@+ 数组包含结束偏移量。在这两种情况下，元素 0 指的是整个匹配。

我不得不求助于because of how \G works：

还要注意s/// 将拒绝覆盖已被替换的部分替换；所以例如这将在第一次迭代后停止，而不是通过字符串向后迭代：

   $_ = "123456789";
   pos = 6;
   s/.(?=.\G)/X/g;
   print;     # prints 1234X6789, not XXXXX6789

也许@tchrist 可以弄清楚如何让各种断言服从他的意愿。

Answer 4

我们可以使用 negative Look-ahead 和 negative Look-behind

忽略特定的词

例子：

(?!pattern)
is a negative look-ahead assertion

在你的情况下，模式是

$string =~ s/(?<!dvi)-(?<![id])/ /g;

输出：

use either dvi-d or dvi-i

参考：http://www.perlmonks.org/?node_id=518444

希望这会对你有所帮助。