Perl regex negation

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"); 
} 

Примечание: азбука, четкости или ГХИ может предшествовать или наследовал строки

Answer 1

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

есть, это не представляется возможным, чтобы соответствовать этому шаблону в любом месте после начала строки.

Answer 2

Другим вариантом может быть использование unless вместо if:

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

Answer 3

Другой способ, это может дать вам больше контроля отдельных компонентов подстрок

# (?s)^(?:(?:(?!abc|def|ghi).)+|)$ 

(?s) 
^ 
(?: 
     (?: 
      (?! 
       abc 
      | def 
      | ghi 
      ) 
      . 
    )+ 
    | 
) 
$