Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re^2: Perl - write data from hashes

by marinersk (Chaplain)
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.

Comment on Re^2: Perl - write data from hashes
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1058129]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (11)
As of 2014-08-22 18:24 GMT
Find Nodes?
    Voting Booth?

    The best computer themed movie is:

    Results (163 votes), past polls