✔ PERL ANFÄNGER ! brauche hilfe beim Formularübergeben

[BitBurger]

Hallo leute. Heute habe ich das Problem das ich Werte mit Hilfe eines Formulars zu einer anderen Perl-Seite schicken möchte. Von PHP zu Perl habe ich das bereits hinbekommen, doch von Perl zu Perl nicht.

a.pl

   print "<form name='form1' method='post' action='a2.pl' enctype='multipart/form-data'>";
  print "Customer:<br>";
  print "<select name='customer'>";
  print "<option>New Customer";
  print "<option>test";
  print "</select>";
  print "<br>";
  print "Location:<br>";
  print "<select name='location'>";
  print "<option>New Location";
  print "</select>";
  print "<input type='hidden' name='version' value='$version'>";
  print "<input type='hidden' name='hostname' value='$hostname'>";
  print "<input type='hidden' name='ip_adress' value='$ip_adress'>";
  print "<input type='hidden' name='model' value='$model'>";
  print "<input type='hidden' name='memory' value='$memory'>";
  print "<input type='hidden' name='info' value='$info'>";
  print "<br>";
  print "<input type='submit' name='submit1' value='submit'>";
  print "</form>";
  print "</div>";

diese Werte sollten doch normalerweise jetzt so übergeben werden !

.../a2.pl?customer=$customer&location=$location&version=$version........

Doch es wird nichts übergeben ?! Was mache ich falsch?

Also schon mal Vielen Dank für die Hilfe

MFG

BitBurger

 

[waterhouse533-lp]

Hallo BitBurger,
die Daten werden übergeben, allerdings werden sie nicht in der URL angezeigt, da Du als Übergabemethode post statt get verwendest.
Um möglichst einfach auf die gesendeten Formulardaten zuzugreifen, verwendest Du das Modul CGI.pm in deinem Script a2.pl.
z.B.

 #!/usr/bin/perl -w
  use strict;
  use CGI;
 
  my $cgi = new CGI;
  my $name;
 
  print $cgi->header("text/html"), $cgi->title("Formulartest"),$cgi->start_html; 
  
 foreach $name ($cgi->param) {
    if  ($cgi->param($name) ) {
  	 print "$name \t $cgi->param($name) \n";
   }
  }