Re: Perl hash comparison

Perhaps I'm misunderstanding your issue's description, but it sounds like the following: given a set of characters and a hash key, return (chars in key / 5) * $hash{key}. If this is the case, perhaps the following will work for you:

use Modern::Perl;

my %hash = (
    ABCDE => 12,
    FGHIJ => 7,
    KLMNO => 2
);

say getMatchResult( 'AC', 'ABCDE' );

sub getMatchResult {
    my ( $find, $key ) = @_;
    my $matches = () = $key =~ /[$find]/ig;

    ( $matches / 5 ) * $hash{$key};
}
[download]

Output:

4.8
[download]

Hope this helps!

Update: Thanks to hmb for suggesting the goatse operator (and character class). It timed faster than my iterative solution w/regex.

Comment on Re: Perl hash comparison Select or Download Code

Replies are listed 'Best First'.
Re^2: Perl hash comparison by hbm (Hermit) on Aug 17, 2012 at 00:37 UTC
`#my $matches; #$matches += $key =~ /$1/i while $find =~ /(.)/g; # or the "rolex" operator! my $match =()= $key=~/[$find]/ig;` [download]	[reply] [d/l]
Re^3: Perl hash comparison by Kenosis (Priest) on Aug 17, 2012 at 01:29 UTC
This is a good suggestion; I'll make the change in the script.	[reply]