Es wird nicht 0 oder 1 von der checkbox übergeben sondern entweder value oder nichts oder wenn kein value definiert ist wird "on"übergeben:
Beispiel mit CGI
(perldoc CGI ist die Zeit wert gelesen zu werden)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
BEGIN {
push @ARGV,"check1=LHB"; # Simulation Parameterübergabe
}
use strict;
use CGI qw/:all/;
my $check1 = param('check1');
my $check2 = param('check2');
print STDERR "\$check1: $check1\n\$check2: $check2\n";
print checkbox(-name=>'check1',
-value=>"LHB",
-checked=> $check1 eq "LHB" ? 1 : 0,
-label=>'LHB'
),
"\n",
checkbox(-name=>'check2',
-checked=> $check2 ? 1 : 0,
-label=>'LFB'
);
_ _ END _ _
<input type="checkbox" name="check1" value="LHB" checked="checked" />LHB
<input type="checkbox" name="check2" value="on" />LFB
STDERR:
$check1: LHB
$check2:
Wenn nicht das in der Variable drin steht, würde mich mal interessieren wie du dir die Werte für
$check1 und
$check2 holst.
Gruß Alex