否定perl regexp

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 documentation：

  

二进制“！〜”就像“=〜”除外   返回值在否定中被否定   逻辑意义。

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