![]() |
|< 1 2 >| | ![]() |
13 Einträge, 2 Seiten |
1
2
3
4
5
if ($check1==1) {
print '<INPUT name="check1" TYPE="checkbox" VALUE="LHB" checked>LHB'}
if ($check2==1) {
print '<INPUT name="check2" TYPE="checkbox" VALUE="LHB" checked>LFR'}
.....
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:
1
2
if (defined $check1) {
print '<INPUT name="check1" TYPE="checkbox" VALUE="LHB" checked>LHB'}
![]() |
|< 1 2 >| | ![]() |
13 Einträge, 2 Seiten |