perl und multiple SELECT

[Frank Schönmann]

hi!

Ich suche den Perlbefehl, um aus einer HTML-Form die Inhalte aus einem nultiple Select
herauszulesen.

Genau das gleiche steht weiter unten im Forum. Ich kopiere mal meine Nachricht von unten:

=== cut ===
Man könnte das folgenermaßen lösen:
=== cut ===
if ($ENV{'REQUEST_METHOD'} eq "GET")
{
  $EnvDaten = $ENV{'QUERY_STRING'};
} else {
  read STDIN, $EnvDaten, $ENV{'CONTENT_LENGTH'};
}
$Trennzeichen = ":";
for (split /&/, $EnvDaten)
{
  my ($key, $value) = split /=/;
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9]{2})/pack("C", hex($1))/eg;
  $value =~ s/</</g;
  $value =~ s/>/>/g;
  ($p{$key}) && ($p{$key} .= "$Trennzeichen$value") ($p{$key} = $value);
}
=== cut ===

Das Trennzeichen sollte man natürlich so wählen, dass es sonst in keinem der Werte vorkommt. In ein Array splitten lässt
sich der Skalar, der alle Werte der Liste enthält, mit dem Befehl split:
  @werte = split /$Trennzeichen/, $p{'name_der_auswahlliste'};
=== cut ===

bye, Frank!