Variable Importieren.

[Astovidatu]

Sers allerseits,
habe folgende sub:
----
sub do_quiz(){
 my $antwort = 1;
 my $count = 0;
 my @answers = ''; #die richtigen antworten
 my @quiz = <QUIZ>;
 close QUIZ;
 foreach my $zeile (@quiz) {
  if ($zeile =~ /^F\d{1,2}:.\s\w+/) {
   print "<form name="form1" method="post" action="do_quiz.cgi">";
   print "$zeile<br>";
  }
  if ($zeile =~ /:ANSW:$/) {
   $answers[$count] = $antwort;
   $count++;
  }
  if ($zeile =~ /^[1].+/) {
   if ($zeile =~ /^brake$/) {
    $zeile =~ s/brake/Weiß nicht/;
   }
   if ($zeile =~ /:ANSW:$/) {
    $zeile =~ s/:ANSW://;
   }
   print "<input type="radio" name="antwort" value="$antwort"> $zeile<br>";
   $antwort++;
  }
  if ($zeile =~ /Weiß nicht$/) {
   print "</form><br>";
  }
 }
 my $uname = param('uname');
 my $email = param('email');
 print "<form name="form2" method="post" action="results.cgi">";
 print "<input type= "hidden" name="uname" value="$uname">";
 print "<input type= "hidden" name="email" value="$email">";
 print "<input type= "hidden" name="quiz" value="$quiz">";
 print "<input type= "hidden" name="array" value="@answers">";
 print "<INPUT TYPE="submit" VALUE="Fertig"></form>";
}
-----
Es geht im prinzip hierrum:
print "<input type="radio" name="antwort" value="$antwort"> $zeile<br>";
Ich brauche in der results.cgi param('antwort') um die Eingabe des Users mit den richtigen Antworten zu vergleichen. Natürlich geht das so nicht, da ich "submit" nur im unteren <form> habe.
Also hab ich am ende des scripts: "redirect('http://www.security-project.org/cgi-bin/results.cgi?antwort=$antwort');"
angehängt. Funktioniert nicht.
Wie bekomm ich nun die werte in results.cgi?

---

1. a-e.) ↩︎