in reply to Joining and Applying a different hash to another
my %keymap = ( username => 'Name', password => 'PW', ); my $old = { username => 'Drew', password => 'Boy' }; my $new = {}; foreach my $k (keys %$old) { $new->{$keymap{$k}} = $old->{$k}; }
------
We are the carpenters and bricklayers of the Information Age.
Then there are Damian modules.... *sigh* ... that's not about being less-lazy -- that's about being on some really good drugs -- you know, there is no spoon. - flyingmoose
I shouldn't have to say this, but any code, unless otherwise stated, is untested
|
|---|