Отрицание регулярного выражения perl

Question

my ($INV_NB, $USAGE)=split /\|/,"9998|999999999999999";

if ($USAGE=~/^\d{15}\b/)
{
  print "\nUSAGE is Valid\n";
  print "length of $USAGE is ",length($USAGE);  
}

Это сработало, как и ожидалось, но как я могу отменить это регулярное выражение?скажем, если использование не /^\d{15}\b/

if ($USAGE!=~/^\d{15}\b/)
{
  print "\nUSAGE is Invalid\n";
  print "length of $USAGE is ",length($USAGE);  
}

Я пытался это, но это не работает

Answer 1

Вы можете сделать:

if ($USAGE !~ /^\d{15}\b/)

---

Документация Perl :

Двоичный "! ~" Похож на "= ~", за исключениемвозвращаемое значение отрицается в логическом смысле.

Answer 2

Другие ответы верны, но если вы когда-нибудь захотите опровергнуть регулярное выражение (а не оператор, который его применяет), вы можете использовать

/^(?!.*?$regex_to_be_negated)/s

Answer 3

Также:

unless ($USAGE=~/^\d{15}\b/)
{
  print "\nUSAGE is Invalid\n";
  print "length of $USAGE is ",length($USAGE);  
}