in reply to Alphabetical values

use strict;
use warnings;

my %index = (
    a => 123,
    b => 200,
    c => 700,
);
my $word = "abc";
my $sum = 0;

map { $sum += $index{$_}}  split (//,$word);

print $sum;

[download]

Replies are listed 'Best First'.
Re^2: Alphabetical values
by Tanktalus (Canon) on Dec 16, 2008 at 15:30 UTC

    Warning: useless use of map in void context.

    Ok, so perl may not be giving that to you, but some of us think it should ;-)

    This is the same, but has no return value (well, other than the final $sum, but most of us forget that): 

    $sum += $index{$_} for split //, $word;

    [download]
    Though, that said, I would still end up using map: 
    use List::Util qw(sum)
my $sum = sum map $index{$_}, split //, $word;

    [download]
    My method has the advantage of reading more like English, and the disadvantage of likely being slower and using more memory. That said, it's always important to me that my code looks more like my design docs than like the underlying machine code, though I have to admit that $sum += $index{$_} is just so idiomatic that my mind sees "sum of $index{$_}" when my eyes see "$sum += $index{$_}". I just had to present it as yet another WTDI.

[reply]
[d/l]
[select]
Re^2: Alphabetical values
by lostjimmy (Chaplain) on Dec 16, 2008 at 15:33 UTC
    I would think that map is inappropriate here since you are using it in a void context. foreach makes much more sense, as moritz and ikegami have done.

    Update: Tanktalus beat me to it.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom