Vrøvl med variabler fra forms
HejJeg har nedenstående kode fra Webcafe.dk men kan ikke få det til at virke. Dvs når jeg kalder siden med: index.pl?navn=mik&farve=red så bruger den ikke de medsendte variabler. (Fx $IND{'navn'} )
Nogen der kan hjælpe?
/Mikkel
#!C:\perl\bin\perl.exe
# Input modtages og behandles
# vha. subrutinen "opdel_i_par"
&opdel_i_par;
print $ENV{'QUERY_STRING'};
# Browseren får fortalt af der kommer HTML
print "Content-type: text/html\n\n";
$te = 'mikkkkkk';
print $vaerdi;
# Den indledende del af HTML
print "<HTML>";
print " <HEAD>";
print " <TITLE>Navn og farve</TITLE>";
print " </HEAD>";
# Baggrundsfarve sættes til den valgte farve
print " <BODY BGCOLOR=$IND{'farve'} TEXT='black'>";
# Vi siger hej til personen
print " <H1>Hej $IND{'navn'}</H1>";
# Afsluttende HTML
print " </BODY>";
print "</HTML>";
# Scriptet afsluttes
exit;
# Herunder subrutinen
sub opdel_i_par {
# Læs fra standard input til strengen $input
read(STDIN, $input,$ENV{'CONTENT_LENGTH'});
# Adskil de enkelte form/indhold-par
@allepar = split(/&/, $input);
# Kør igennem for hvert par
foreach $par (@allepar) {
# Split op i $navn og $ vaerdi
($navn, $vaerdi) = split(/=/, $par);
# Lav "+" om til " " i $navn
$navn =~ tr/+/ /;
# Afkod specialtegn i $navn
$navn =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# Lav "+" om til " " i $vaerdi
$vaerdi =~ tr/+/ /;
# Afkod specialtegn i $vaerdi
$vaerdi =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# Associer $navn og $vaerdi igennem hashen %IND
$IND{$navn} = $vaerdi;
}
} # sub opdel_i_par
