regex - 否定 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);  
}