三項演算子

Perl

PBP的にはどう書くのがBest Practiceだったっけと思って確認してみる。

my $salute = $name eq $EMPTY_STR                      ? 'Customer'
           : $name =~ m/\A((?:Sir|Dame) \s+ \S+) /xms ? $1
           : $name =~ m/(.*), \s+ Ph[.]?\D \z    /xms ? "Dr $1"
           :                                            $name
           ;

ふむ、今回のだと少し崩したほうがいいかな。

my $site = $uri =~ /foo\.bar/     ? 'foobar'
         : $uri =~ /example\.com/ ? 'example'
         : die "unkwnon uri: $uri\n";