Read Form

I am writing a script and am using the data from the URL and FORMS.

I am using the below code to produce the strings in a useable mannor (code very similar to that used in YaBB as I have been using this as a refference).

[perl]sub read_input {
# Create INFO hash
my $env = $ENV{QUERY_STRING};
@pairs = split(/;/, $env);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$INFO{$name} = $value;
}
# Create FORM hash
read(STDIN, $FormData, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $FormData);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
}[/perl]

This gives me the output of a form name as $FORM{'itemname'}

This does not seem to work for <select multiple> type form inputs, as the string is over written by the previous multiple entry each time.

What is the best way to recover from this!?! I would like to have the results from a multiple select box to produce a commar seperated (or other seperated) list such as $FORM{'multiple'}="lemon,pear,apple" for example.

Thanks very much for any input!

use CGI;

It's that simple

Have a look at the CGI documentation on CPAN. It's tried and tested, and frees you up to have fun on other stuff that people haven't already tested to death

CPAN's your buddy, get to know him ...