Leser: 1
![]() |
|< 1 2 >| | ![]() |
13 Einträge, 2 Seiten |
1 2 3 4 5 6 7 8
#!/usr/bin/perl use strict; use warnings; use MyApp; my $app = MyApp->new; $app->run;
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
package MyApp; use strict; use warnings; use base qw(CGI::Application); sub setup { my ($self) = @_; $self->mode_param( 'rm' ); $self->run_modes( step1 => \&step1, step2 => \&stepname, ); } sub step1 { my ($self) = @_; return "<h2>Dies ist Step1</h2>"; } sub stepname { return "Irgendein HTML-Code"; }
moritz+2008-06-09 18:11:41--Unter Windows könnte da anders aussehen, weil da die Dateiendung den Typ bestimmt.
<a href="indes.pl?rm=step2">News<a>
1 2 3 4 5 6 7 8
#!/usr/bin/perl use strict; use warnings; use MyApp; my $app = MyApp->new; $app->run;
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
package MyApp; use strict; use warnings; use base qw(CGI::Application); sub setup { my ($self) = @_; $self->mode_param( 'rm' ); $self->run_modes( step2 => \&test2, ); } sub test2 { return "Sie haben den Link 'indes.pl?rm=step2' geklickt..."; }
<a href="indes.pl?seite=3">Bilder<a>
if (param('seite') == 3){...}
![]() |
|< 1 2 >| | ![]() |
13 Einträge, 2 Seiten |