http://www.perlmonks.org?node_id=954788


in reply to Re: Using Number Ranges in a Dispatch Table
in thread Using Number Ranges in a Dispatch Table

Bless you!

I thought the technique itself should be sound, and the solution something simple, but I didn't realize it would be this simple!

Thanks!

HTH,

planetscape
  • Comment on Re^2: Using Number Ranges in a Dispatch Table

Replies are listed 'Best First'.
Re^3: Using Number Ranges in a Dispatch Table
by Anonymous Monk on Feb 18, 2012 at 19:36 UTC
    No need to double up on the parentheses 
        (map { $_ => 2 } 'B','C'),
    (map { $_ => 3 } 'D','E'),

    [download]
[reply]
[d/l]
      If we're being nitpicky :) no need to create a lexical block for map: 
      $ perl -Mstrict -MData::Dumper -we'my%h=( (map +($_=>2), "B","C","D"),
+ one=>1 ); print Dumper(\%h)'
$VAR1 = {
          'one' => 1,
          'D' => 2,
          'C' => 2,
          'B' => 2
        };

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom