Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Replacing If Elsif Else with Hash

by frozenwithjoy (Priest)
on Nov 24, 2012 at 05:07 UTC ( #1005332=note: print w/replies, xml ) Need Help??


in reply to Replacing If Elsif Else with Hash

This will return 'grey' if you use a severity not defined in the hash:
my %bkcolor = ( 'Extreme' => 'red', 'Severe' => 'orange', 'Moderate' => 'yellow', 'Minor' => 'green', ); my $background = $bkcolor{$severity} // 'grey';

Replies are listed 'Best First'.
Re^2: Replacing If Elsif Else with Hash
by moritz (Cardinal) on Nov 24, 2012 at 08:59 UTC
Re^2: Replacing If Elsif Else with Hash
by johnfl68 (Beadle) on Nov 24, 2012 at 05:29 UTC

    Thank you very much for you time and help!

    John

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1005332]
help
Chatterbox?
[Tux]: None work for me. My dead key is AltGr (right Alt)
[Tux]: And I just tested, neither do other Tk apps :) (95% of my Tk Apps is either just monitoring (no input) or input of just numbers). Something to investigate then
[choroba]: Maybe something like this?
[choroba]: I vaguely remember we had problems with dead keys in Tk at $work - 2, but I forgot all the details
[choroba]: but it was worse on MSWin than on Linux

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2017-09-25 20:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    During the recent solar eclipse, I:









    Results (290 votes). Check out past polls.

    Notices?