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