！〜在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

!~是绑定运算符=~的取反，就像!=是绑定运算符==的取反。

表达式

$foo !~ /bar/

与表达式等效，但更简洁，有时更具表达力

!($foo =~ /bar/)