if-elsif-elseの話が聞こえた
- if-elsif-else の書き方 - punitanのメモ
- 同じくPerlBestPracticeに載ってた。三項演算子結構好き。
my $color = <STDIN>; my $value = $color =~ /red/i ? 0xff0000 : # if $color =~ /green/i ? 0x00ff00 : # elsif $color =~ /blue/i ? 0x0000ff : # elsif 0x000000; # else warn "unknow RGB component" if $value == 0x000000;