http://www.perlmonks.org?node_id=1004279


in reply to Re: shift and logical or
in thread shift and logical or

Defined, undefined or false?

use strict;
use warnings;

my $val = 0;

print +($val) ? "defined" : "undefined"; # prints undefined

print "\n";

print +(defined $val) ? "defined" : "undefined"; # prints defined

undef $val;

print "\n";

print +(defined $val) ? "defined" : "undefined"; # prints undefined

[download]

In Section Seekers of Perl Wisdom