perl - 空のif文を取り除く方法は?

Question

私にとって、このコードは、私が解決したい問題をどのように考えるかです

if ($b eq "" && $ok) {

} elsif ($b eq "" && !$ok) {
    print "ERROR1\n";

} else {
    print "ERROR2\n";
}

しかし、それはあまりきれいではありません。空のifステートメントがあると思います。

これを回避する方法はありますか？

Answer 1

if を保持するが、$b をチェックする

if ($b eq "") {
    if (!$ok) {
        print "ERROR1\n";
    }
}
else{
    print "ERROR2\n";
}

Answer 2

ロジックを必要なものに変更するだけです

if($b eq "" && !$ok){
    print "ERROR1\n";
}elsif( !$ok || $b ne ""){
    print "ERROR2\n";
}