Flere variable fra formular?
Hvordan adskiller jeg flere variable som mit perl-script modtager fra en formular?Jeg har først lavet et associativt array ved at dele strengen ved "=". Jeg ville tro at man også bare skal dele strengen ved &, men det kan jeg ikke få til at virke.
Her kan i se min kode...:
cgi.pl CHMOD 755
------------------------
#!/usr/bin/perl -w
print "Content-type: text/html; charset=iso-8859-1 \n\n";
#-------------------------------------------------
# Herunder udskrives kun ren ubearbejdet html
#-------------------------------------------------
print <<END;
<html>
<body>
<center>
<form action="cgi.pl" method="get">
Navn: <input name="navn" type="text" value=""><br>
Alder: <input name="alder" type="text" value=""><br>
<input type="submit" type="submit">
</form>
</center>
<p>
END
#-------------------------------------------------
# Der udskrives nu igen via CGI
#-------------------------------------------------
my $in;
my $i;
if ($ENV{'REQUEST_METHOD'} eq "GET") {
$in = $ENV{'QUERY_STRING'};
} else {
$in = <STDIN>;
}
# URL-encoded characters is replaced by normal characters
$in =~ s/%(..)/pack("c",hex($1))/ge;
# If any +'s in vars then they will be replaced by spaces
$in =~ s/\+/ /g;
my %user = split (/=/, $in);
print $user{'navn'};
print $user{'alder'};
----------------------
ps. jeg er ny i perl!
