perl - クリーンで適切な Perl TK チェックボックスの作成

Question

混乱を招くことなく、以下を行うためのより効率的で少ないコードの方法はありますか? $average_value が選択されているか、3 つのオプションすべてが選択されている可能性があるかどうかに応じて、個別の関数を実行したいので、各値を確実に追跡したいと考えています。このプログラムは、アイデアを提供するための基本的なデータ分析アプリケーションです。

編集：

次のコードを追加すると、Perl が「TRUE」または「FALSE」を使用せず、代わりに ZERO または ONE 値を使用するブール値のように動作します。

 $differences = $tab1 -> Checkbutton(
                      -text     =>      "Differences", 
                      -font     =>      \$fontdefault,
                      -variable =>      \$differences_value,

    $totalcheck = $average_value+$duplicates_value+$differences_value;

上記のコードは -variable を使用しています。上記のアドインは、これが効率的なコーディングであったかどうか、またはおそらく最短の最良の方法であるかどうかについて、より多くの情報を提供する可能性があると思います。Perl は数百行を超えると非常に混乱するので、可能な限り最善の方法を見つけようとしています。

オリジナル：

    if ($totalcheck <= 0 ) {
            my $d = $mw->Dialog(
            -title       =>     "ERROR: Blank", 
            -bitmap      => 'warning',
            -text        =>     "No selection made.", 
                );
                    $d->Show; 
            } else {
                        if ($average_value > 0) {
                            print "average\n"
                                }  
                        if ($duplicates_value > 0){
                                print "duplicates\n"
                                } 
                        if ($differences_value > 0){
                                print "differences\n"
                                } 
                }