这是什么意思!$ var PERL？

Question

我得到一些代码它有效,但没有说明这一部分!$ dump_done ...

my $dump_done = 0; 
foreach my $line(keys %results){ 
    if ($results{$line} == 1 and !$dump_done) { 
         print Dump($post); 
         $dump_done = 1; 
    } 
}

Answer 1

!是Logical NOT运算符.它将回归否定$dump_done.如果$dump_done包含0,否定将给你1:

my $dump_done = 0; 
print !$dump_done;   # Prints 1

这是有效的,因为在Perl任何非零值都被考虑true并被0考虑false.

你可以尝试这个片段:

if (5) {
    print "Hello";   # Will be executed.
}