Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Answer: How do I modify the KEYS in a hash (copy)

( #378437=categorized answer: print w/ replies, xml ) Need Help??

Q&A > hashes > How do I modify the KEYS in a hash (copy) contributed by NetWallah

Here is another way to modify KEYS in-place.

This would be efficient in the case where there were a relatively small number of keys that required modification.

Use the previous method (copy the hash) if the number of keys requiring modification is large.

my %o=(this=>33, 'th at'=>44, other=>55,'some thing'=>66,'or another'= +>77,none=>88); while (my ($k,$v)=each %o){ my $ModifiedK = $k; next unless $ModifiedK =~s/\s/_/; delete $o{$k}; #This is SAFE !! RTFM. $o{$ModifiedK}=$v; }; print qq(Mod: $_\t=>$o{$_} \n) for sort keys %o"

Comment on Answer: How do I modify the KEYS in a hash (copy)
Download Code
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (2)
As of 2014-10-22 05:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (112 votes), past polls