1

是否有一种更有效、更少代码的方法来执行以下操作而不会使其过于混乱？我想确保跟踪每个值，因为我想运行单独的函数，具体取决于是否选择了 $average_value 或者可能选择了所有三个选项。该程序是一个基本的数据分析应用程序，可以给你一个想法。

编辑：

添加下面的代码，这使它像一个布尔值一样，Perl 不使用“TRUE”或“FALSE，而是使用零或一值。

 $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"
                                } 
                }
4

0 回答 0