perl - 如何不匹配字符串？

Question

此脚本将打印 aaa。

我如何得到 $b =~/disabled/ 的负数，所以它返回 TRUE，而 $b 没有匹配“禁用”？

即。我想保留 if 语句，但想要 $b !=~/disabled/。

#!/usr/bin/perl

use warnings;
use strict;

my $a = 1;
my $b = "disabled";


if ($a == 1 && $b =~ /disabled/) {

    print "aaa\n";

}

Answer 1

你要找的是!~我想。

if ($a == 1 && $b !~ /disabled/) {

   print "aaa\n";

}