perl - !~ 在 perl 中是什么意思

Question

谁能给我解释一下这行是什么意思？

elsif ($ARGV[0] !~ /^\d+$/

完整的代码在下面，它是用来回显输入的。

if (@ARGV != 2) {
    print "Usage: ./echon.pl <number of lines> <string>\n";
    exit;
} elsif ($ARGV[0] !~ /^\d+$/) {
    print "./echon.pl: argument 1 must be a non-negative integer\n";
    exit;
}

$i=0;
while ($i < $ARGV[0]) {#print argv[1] for argv[0] - 1 times
    print "$ARGV[1]\n";
    $i++;
}

Answer 1

!~是绑定(bind)运算符=~的否定，像!=是运算符==的否定。

表达式

$foo !~ /bar/

是等价的，但比表达式更简洁，有时更具表现力

!($foo =~ /bar/)