Help for this page

Select Code to Download


  1. or download this
        my $i=$t;
        $bill_table->Button(-text=>'Submit',
                        -command=>sub{if ($checkboxvalue[$i] ==1){prin
+t $f}},
                        )->pack;
  2. or download this
            $bill_table->Button(-text=>'Submit',
                        -command=>[
...
                           $f,
                        ],
                        )->pack;
  3. or download this
      if( $foo ){ print $f }
  if( defined $foo ){ print $f }

  if( $foo && $foo==1){ print $f }
  if( defined $foo && $foo==1){ print $f }