Isn't there a better way to specify the mapping?

Well, map does come to mind... ;-) 

use strict;

# define hash keys that need conversion
# (others will be unchanged)
my %map_foo_to_bar = (
    gearbox    => 'gearbox1',
    drivetrain => 'the_drivetrain',
    smokestack => 'my_smokestack',
    junkyard   => '_junkyard',
);

# our hash data
my %foo = (gearbox        => 'five-speed', 
           drivetrain     => 'automatic', 
           something_else => 'entirely');

# perform the mapping (wrapped in an anonymous hashref)
my $new_name;
my $bar = { 
  map 
    { defined ($new_name = $map_foo_to_bar{$_}) ? 
      ($new_name => $foo{$_}) : 
      ($_        => $foo{$_})
    } 
    (keys %foo) 
  };

[download]

Then from Data::Dumper: 

$VAR1 = {
          'the_drivetrain' => 'automatic',
          'something_else' => 'entirely',
          'gearbox1' => 'five-speed'
        };

[download]

I've come to think of map a potential solution whenever I want to apply the same operation to every element of an array or hash. In this case the "same operation" just happens to be a conditional -- if we have a new name defined for a given hash key, then use it, otherwise just keep the original hash key.

In reply to Re: Bulk Hash Assignment by seattlejohn
in thread Bulk Hash Assignment by tadman

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.