![]() |
|< 1 2 >| | ![]() |
14 Einträge, 2 Seiten |
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
#!/usr/bin/perl -w use strict; use warnings; use CGI; my $cgi = CGI->new(); my %params = $cgi->Vars; print $cgi->header; print_form(); if( $params{button1} ){ print "Button1 geklickt"; } if( $params{button2} ){ print "Button2 geklickt"; } sub print_form{ my $script = $ENV{SCRIPT}; print qq~ <form action="$script" method="post"> <input type="submit" value="Button1" name="button1"> <input type="submit" value="Button2" name="button2"> </form> ~; }
QuoteIch muss auch alle paar Minuten auf selfhmtl schauen wie die Syntax genau war^^
![]() |
|< 1 2 >| | ![]() |
14 Einträge, 2 Seiten |