Formularsvar omsat til HTML
Hej,Jeg har lånt/skrevet et lille program der præsenterer bruger for en form som brugeren så kan udfylde og trykke Ok hvorefter scriptet viser de data brugeren tastede ind/valgte. Problemet er at næste gang en anden bruger formen vil denne ikke kunne se de data en anden tidligere har tastet ind. Jeg ved at jeg skal oprette en seperat HTML fil hvor dataene kan gemmes i og at denne skal indeholde en <---kommentar----> man skal så referere til siden og kommentaren i Perlscriptet.
Her er koden til scriptet i dets nuværende form:
#!/usr/bin/perl
print \"Content-type:text/html\\n\\n\";
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;
$FORM{$name} = $value;
}
%valg = ( 0 => \"\",
1 => \"Ja\",
2 => \"Nej\" );
print <<EndHTML;
<html><head><title>Resultat</title></head>
<body>
<h2>Resultat</h2>
Her er dit input:<p>
Navn: $FORM{\'navn\'}<p>
Valg: $valg{$FORM{\'valg\'}}<p>
EndHTML
print <<EndFoot;
<p>
Din kommentar:<br>
$FORM{\'kommentar\'}<p>
</body></html>
EndFoot
