Perlでの3項演算子

3項演算子での「入れ子的な使い方」や「switch文的な使い方」のメモ

use strict;
use warnings;
my ($aaa, $bbb, $ans);
   
   $aaa = "AAA";
   $bbb = "CCC";

   # 一般的な使い方
   $ans =  $aaa eq "AAA" ? 1 : 2;
   print $ans, "\n";

   #入れ子的な使い方
   $ans =  $aaa eq "AAA" ? $bbb eq "BBB" ? 1
                                         : 2
                         : $bbb eq "CCC" ? 3
                                         : 4;
    print $ans, "\n";

   #switch文的な使い方
   $ans = $aaa eq "AAA" ?  1 + 1:
          $aaa eq "BBB" ?  2 + 2:
          $aaa eq "CCC" ?  3 + 3:
                           4 + 4;
   print $ans, "\n";

• 参考リンク http://hp.vector.co.jp/authors/VA010341/conditional.html