perl - if、elsif、else を 1 つのライナーのセットに入れることはできますか?

Question

（Perlを使用）一連のステートメントがあります：

if(@good_car) {
   $goodC = 1;
}
elsif (@notbad_car) {
   $okayC = 1;
}
else {
   $badC = 1;
}

私は次のようなことができるかどうか疑問に思っていました:

$goodC = 1 if (@good_car),
elsif (@notbad_car) $okayC = 1 else $badC = 1;

elsif のせいでこれが実際に機能するとは想像できませんが、少し短くするといいでしょう :) どんなヒントも素晴らしいでしょう!

Answer 1

@good_car ? ($goodC = 1) : @notbad_car ? ($okay = 1) : ($bad = 1);

Answer 2

elseのステートメント修飾子形式で機能するものはありませんif。

インデントを変更するだけです：

if    (@good_car)   { $goodC = 1 }
elsif (@notbad_car) { $okayC = 1 }
else                { $badC  = 1 }