>>740
$c = ($a == 0 or $b == 0) ? 0
　　: ($a > $b)　　　　　 ? $a / $b
　　: 　　　　　　　　　　　$b / $a
　　;
ね。等幅エディタで。@Perl Best Practice