tab@music4:~ $ perl -de 1
Loading DB routines from perl5db.pl version 1.51
Editor support available.
Enter h or 'h h' for help, or 'man perldebug' for more help.
main::(-e:1): 1
DB<1> %hash = ();
DB<2> use Data::Dumper;
DB<3> print Dumper(\%hash)
$VAR1 = {};
DB<4> if ( exists $hash{nothing} ) { print "Wow.\n"; }
DB<5> !3
print Dumper(\%hash)
$VAR1 = {};
DB<6>
For me, the whole point of using exists is to avoid doing autovivification.
But the example used a two level hash .. so I answered the wrong question. Ugh.
Alex / talexb / Toronto
Thanks PJ. We owe you so much. Groklaw -- RIP -- 2003 to 2013.
|