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 0x000</stdin>…