这是什么意思！$ var PERL？

-1

我得到了一些代码，它的工作原理，但不understan这个部分！$ dump_done ...

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

来源

2013-02-19 Hellena

如果打印'$ POST'第一次的'$ dump_done = 1'值变为1，之后，价值'！$ dump_one'变成0。下一次你的病情会永远是'虚假'。 – gaussblurinc 2013-02-19 15:32:27

我现在明白了...谢谢!!! – Hellena 2013-02-19 15:39:17

!是Logical NOT operator。它将返回$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. 
}

来源

2013-02-19 14:43:12

但是为什么在这个例子中打印转储（$ post）;只有一次？ – Hellena 2013-02-19 15:23:18

@ user2087116。因为在'if'里面，你做了'$ dump_done = 1;'，之后你的'if'不会再运行，因为现在'！$ dump_done'将会是'0'。然后，因为你永远不会在'for'循环内改变它的值，所以它永远是'0'，并且它只打印一次。 – 2013-02-19 15:35:39

我现在明白了...谢谢！ – Hellena 2013-02-19 15:38:36

的!字符大多数编程语言代表不，它是否定。

如果变量$dump_done的值仍然为零，则当您测试$dump_done时，它将返回FALSE（0）。如果你否定这个表达式，你会得到一个TRUE表达式（！= 0）。

见Truth and Falsehood

来源

2013-02-19 14:43:32

但是为什么在这个例子中打印转储（$ post）;只有一次？ – Hellena 2013-02-19 15:23:48

这是什么意思！$ var PERL？

回答

相关问题