Re: Re: Matching a KEY in a HASH

Here's the code I'm currently using:

%category = (
    Anim => 'Animation Projects',
    Build => 'Building/Structural Projects',
    CAD => 'CAD/CAM Engineering Projects',
    );


    my $value;
              $value = (sort values %category);
    print "$value" if (exists($category{"$form{'USER_INPUT'}"})) ;
[download]

It prints EVERY $value instead of just the $value for the matching $form{'USER_INPUT'}.

I hope my question is now clearer and makes more sense..

Comment on Re: Re: Matching a KEY in a HASH Download Code

Replies are listed 'Best First'.
Re: Re: Re: Matching a KEY in a HASH by merlyn (Sage) on May 14, 2001 at 21:46 UTC
Yes, stop getting all the values, when all you want is one value. Use the code I've posted twice in this thread, as have others. -- Randal L. Schwartz, Perl hacker	[reply]
Re: Re: Re: Matching a KEY in a HASH by suaveant (Parson) on May 14, 2001 at 22:18 UTC
Ummm, first things first... `$value = (sort values %category);` [download] will store the last value of the sorted list of values in $value, this is most likely not what you want. You are looking to print the value of %category that the key matches $form{'USER_INPUT'}? then use.. `print $category{$form{'USER_INPUT'} if $category{$form{'USER_INPUT'};` [download] do you just want the value of Anim if the user inputs Anim, or do you want Build AND CAD when the user inputs 'd'? - Ant	[reply] [d/l] [select]
Re: Re: Re: Matching a KEY in a HASH by Daddio (Chaplain) on May 14, 2001 at 22:26 UTC
As merlyn said, looks like you are trying to grab all the 'values' with the `$value = (sort values %category);` statement. If you just use `print "$category{$form{'USER_INPUT'}}" if exists $category{$form{'USER_INPUT'}};` [download] everything should work fine. (At least it did for me... :) D a d d i o	[reply] [d/l] [select]
Re: Re: Re: Re: Matching a KEY in a HASH by SysAdm (Novice) on May 15, 2001 at 01:01 UTC
Thanks! for everyone's help on this.... It works great now...! _________SysAdm	[reply]