有没有办法使用正匹配正则表达式运算符对字符串进行否定匹配？

Question

具体来说，有没有办法实现相当于

my $string = 'this is some example text';
my $match = qr/foobar/;
print 'success' if $string !~ $match;

仅使用=〜，而不使用否定运算符？

具体来说，我需要确保字符串与提供的值不匹配，并且测试函数接受正则表达式对象，并将它们积极地应用于该值。 该值不得出现在所有的搜索字符串中，从而使前瞻和后瞻断言复杂化。

以下内容可能是一个很好的测试：

my $string = 'this is some example text';
my $match =~ qr/foobar/;
# $negated_match contains $match, or some transformed variation of it
my $negated_match = qr/$YOUR_REGEX_HERE/; 
die 'failure' if $string =~ $match;
print 'success' if $string =~ $negated_match;

我怀疑有一种方法可以通过环顾四周的断言来做到这一点，但还没有解决它。 perl特定答案是可以接受的。

Answer 1

my $string = 'this is some example text';
my $match = qr/^(?!.*foobar)/s;
print 'success' if $string =~ $match;