Re^3: recursive exists in perl

use Data::Dumper;

my %h;
no autovivification;
if ( exists( $h{A}{B}{C} ) ) {
    print "Hi mom!\n";
}

print Dumper \%h;
__END__

$VAR1 = {};
[download]

Comment on Re^3: recursive exists in perl Download Code

Replies are listed 'Best First'.
Re^4: recursive exists in perl by gsiems (Deacon) on Dec 10, 2010 at 03:24 UTC
Ah! Here I was thinking that "no autovivification" was commentary. `cpanp -i autovivification` [download] Runs script again... sweet. Thank you kind Anonymous for enlightening this humble monk.	[reply] [d/l]