regex - Perl 正则表达式否定

Question

如何取反这个正则表达式(不使用 !~)？

my $Line='pqr_abc_def_ghi_xyz';

if ($Line=~/(?:abc|def|ghi)/)
{
   printf("abc|def|ghi is not present\n");
}
else
{
   printf("abc|def|ghi is present\n");
}

注意:abc,def 或 ghi 可以在字符串之前或之后

Answer 1

if ( $Line =~ /^(?!.*(?:abc|def|ghi))/s ) {

即，不可能在字符串开头之后的任何位置匹配该模式。