- or download this
DB<1> sub tst {return undef}
...
FALSE
DB<6> if (@a=tst()) {print "TRUE"} else {print "FALSE" }
FALSE
- or download this
DB<9> use constant FAILED => ();
...
FALSE
DB<18> if ($a=t_FAILED) {print "TRUE"} else {print "FALSE" }
FALSE
- or download this
Negation of a true value by "!" or "not" returns a special fals
+e value.
When evaluated as a string it is treated as '', but as a number
+, it is
treated as 0.
- or download this
DB<27> p !defined (FAILED)
1
DB<28> p defined (FALSE)
1