checkboxes mit Parametern zum Aufrufen desselben Skripts (gelöst) - #169484 (Perl/CGI)

bianca

2013-08-08 07:01

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Suchst du soetwas?

Code (perl): (dl )

use CGI;

my $cgih = CGI->new;

my $par1 = $cgih->param('par1');
my $par2 = $cgih->param('par2');

my $check1 = (defined $par1 && $par1 eq 'true' ? ' checked' : '');
my $check2 = (defined $par2 && $par2 eq 'true' ? ' checked' : '');
(my $script = $0) =~ s/^.*[\\\/]//g;

my $formular = <<HTML
<FORM action="$script">
    <INPUT TYPE="CHECKBOX" NAME="par1" VALUE="true"$check1> Parameter 1
    <INPUT TYPE="CHECKBOX" NAME="par2" VALUE="true"$check2> Parameter 2
    <INPUT TYPE="BUTTON" NAME="senden" VALUE="aktualisieren">
</FORM>
HTML
;

# Formular ausgeben
print $cgih->header.$formular;

Editiert von bianca: Korrekturen
Last edited: 2013-08-08 07:26:09 +0200 (CEST)

10 print "Hallo"
20 goto 10