Struppi: Code des Wahnsinns *g*

Beitrag lesen

#!/usr/bin/perl

use CGI;
use strict;

my $cgi=CGI->new();

soweit so gut, aber warum du ein über 200KB grosses Modul einbindest, um dann lediglich eine einzige Funktion zu nutzen ist mir ein Rätsel.

my @all=qw(Pear Banana Peach Cherry Orange Coconut Apple Nut Chocolate Burger Bread Grapefruit);
my @selected = $cgi->param("food");

print "Content-type: text/html\n\n";

print $cgi->header() . $cgi->start_html(-title => '', .....);

print $cgi->start_form(....)
. $cgi->scrolling_list(
 -name=>'food',
 -values=> @all,
 -default=>[],
 -size=>5,
 -multiple=>'true',
)
. $cgi->submit(-name => 'foodform')
. $cgi->end_form()
;
....

ungetestet
Les dir mal die Doku zum CGI Modul durch. Es sollten so alle bereits gewählten elemente angewählt bleiben.

Struppi.