handskas med multiple markeringar från listbox i p

[markus00]

Hej!

 

Jag behöver lite hjälp med ett perl script.

 

Jag har ett html dokument med en listbox (selectbox) där alla värden markeras när man klickar på submit.

 

Jag vill få in alla värden även texten till min perl-script.

 

Hur gör jag?

 

/Markus

 

[dune]

Något sånt här kanske skulle fungera:

 

if($ENV{'REQUEST_METHOD'} eq "GET") {
$buffer = $ENV{'QUERY_STRING'};
}
else {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}

@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {

($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$FORM{$name} = $value if(!$FORM{$name});
$FORM{$name} .= "|$value" if($FORM{$name});
chomp($FORM{$name});
}

 

Ovanstående kod skulle helt enkelt ge dig en |-seprarerad lista med värden från din <SELECT>.

 

Lycka till!

 

 

*fluff*

============================

”The future is already here,

it’s just unevenly distributed”

 

[inlägget ändrat 2003-01-06 18:31:34 av dune]

[markus00]

Jag lyckas inte få din kod att fungera.

 

 

[dune]

Förvisso är den skriven ur minnet men den borde fungera, vad får du för felmeddelande?

 

 

*fluff*

============================

”The future is already here,

it’s just unevenly distributed”

 

[markus00]

Nu fick jag det att dungera.

 

Jag skulle vilja att även namnet på det valda fältet visas inte bara värdet. Går det??

 

[markus00]

alltså texten som man ser

 

[dune]

Om du menar att du har följande HTML-kod:

<select name="select">
<option value="1">foo</option>
<option value="2">bar</option>
</select>

 

Du kan inte få ut texten "foo" och "bar" ifrån koden ovan. Det är bara värden som skickas vidare.

 

 

*fluff*

============================

”The future is already here,

it’s just unevenly distributed”

 

[markus00]

och då får jag jobba vidare

kanske skriva nått javascript eller nått så att den bäddar in namnet i värdet.

Tack för hjälpen!!