regex - 如何匹配与Perl中的特定模式不匹配的字符串？

Question

我知道使用正则表达式可以轻松匹配除给定字符以外的任何内容。

$text = "ab ac ad";
$text =~ s/[^c]*//g; # Match anything, except c.

$text is now "c".

我不知道如何“除”字符串而不是字符。我将如何“匹配除“ac”以外的任何内容”？尝试[^(ac)]和[^“ac”]没有成功。

有可能吗？

Answer 1

以下内容解决了Bart K.评论中从第二种意义上理解的问题:

>> $text='ab ac ad';
>> $text =~ s/(ac)|./\1/g;
>> print $text;
ac

另外， 'abacadac'-> 'acac'
但应注意，在大多数实际应用中，负先行证明比这种方法更有用。