Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re^2: Perl - write data from hashes

by marinersk (Priest)
on Oct 14, 2013 at 05:51 UTC ( #1058129=note: print w/replies, xml ) Need Help??

in reply to Re: Perl - write data from hashes
in thread Perl - write data from hashes


In older versions of Perl, I encountered the issue where attempting to add a value to an undefined hash element would generate a warning.

I see under my modern version of Perl, this is not an issue:

#!/usr/bin/perl -w use strict; my $TEST_KEY = 'abc'; my $TEST_VAL = 5; my %TestHash = (); { print "-----[ Addition to undef ]---------------\n"; %TestHash = (); $TestHash{$TEST_KEY} += $TEST_VAL; print "-----[ Addition testing for undef ]------\n"; %TestHash = (); if (defined $TestHash{$TEST_KEY}) { $TestHash{$TEST_KEY} += $TEST_VAL; } else { $TestHash{$TEST_KEY} = $TEST_VAL; } } exit; __END__ C:\Steve\Dev\PerlMonks\P-2013-10-13@2339-HashUndef> -----[ Addition to undef ]--------------- -----[ Addition testing for undef ]------

I think -- not 100% sure, but I think -- I am happy about this.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1058129]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (8)
As of 2017-04-25 13:47 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (454 votes). Check out past polls.