Opened by tonewheel at 2007-05-01 13:11
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
[quote=tonewheel,01.05.2007, 21:12]Hmmm...als relativer Anfänger sagt mir das leider nicht viel. Kannst Du's etwas vertiefen, ggf. an einem Beispiel erklären?[/quote]
Ganz stark vereinfacht:
Ganz stark vereinfacht:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw/warningsToBrowser fatalsToBrowser/;
my $q = CGI->new;
my @links = qw/foo bar buz/;
my $selected = $q->param('sel') || 'World';
my $o = $q->header . $q->start_html . $q->h1( 'Hello ' . $selected );
$o .= $q->a({href => $q->url . '?sel=' . $_}, $_) . $q->br for @links;
$o .= $q->end_html;
print $o;