data til perl script fra form

Du kan sikkert selv udvide dette:

#!/usr/bin/perl

use CGI;

$query = CGI::new();
print $query->header();

$felt1 = $query->param('felt1');

print "Felt1: $felt1<br>\n";

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, lars@baisgaard.dk and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

det melder den når jeg vil køre det

ok har løst problemet :) takker kigger lige lidt på det

een måde at gøre det på:


#!/usr/bin/perl

use CGI;

my($q) = new CGI;

print $q->header("text/html");
print $q->start_html(-title=>"test",-bgcolor=>"#ffffff");

print $q->h2("dette er en test");

print "Navn: ".$q->param("navn")."<br>";
print "Adresse: ".$q->param("adresse")."<br>";
print "By: ".$q->param("by")."<br>";
print "Email: ".$q->param("email")."<br>";
print "Telefon: ".$q->param("telefon")."<br>";

print $q->end_html();

nå, det var allerede foreslået... man skal være hurtig :)

i er altså bare nogle nice personer. Jeg takker og bukker af hele mit hjerte

Ja, vi er flinke. Også for langt mindre point. Spar på dem :)

jeg har faktisk et spørgsmål mere i forbindelse med det andet det kommer her:

my $user = .$q->param("brugernavn").
my $pass = .$q->param("kode").

vil det sætte de 2 vars til hvad der er indtastet?

my $user = $q->param("brugernavn");
my $pass = $q->param("kode");

når jeg skal bruge de vars senere hen hvad gør jeg så?

print $user; ?

når de skal bruges inde i en kommando linie hvordan bruger jeg dem så der eks:

if ($session->enable($pass) )

Det ser umiddelbart korrekt ud.

my $user = $q->param("brugernavn");
my $pass = $q->param("kode");

virker ikke vars'ene er ihvertfald tomme

print $user;
print $pass;

skrivet intet ud

Din form, og hele din kode. Ellers er det kun gætværk fra vores side.

ok men det virkede før :( altså med:

print "Navn: ".$q->param("navn")."<br>";
print "Adresse: ".$q->param("adresse")."<br>";
print "By: ".$q->param("by")."<br>";
print "Email: ".$q->param("email")."<br>";
print "Telefon: ".$q->param("telefon")."<br>";

#!c:\perl\bin\perl.exe

use CGI;

my($q) = new CGI;

my $user = $q->param("brugernavn");
my $pass = $q->param("kode");

print $q->header("text/html");
print $q->start_html(-title=>"test",-bgcolor=>"#ffffff");

print $q->h2("dette er en test");

print $user;
print $pass;

print $q->end_html();

<form name="form1" method="post" action="min server/cgi-bin/test2.pl">
  <p>Brugernavn
    <input type="text" name="brugernavn">
  </p>
  <p>Kode
    <input type="text" name="kode">
  </p>
    <p>Udf&oslash;r
    <input type="submit" name="Submit" value="Submit">
  </p>
</form>

Det virker umiddelbart hos mig. Kigger du på de rigtige filer?

hmm jeg må have lavet en fejl så - takker ihvertfald for hjælpen endnu engang

den vil stadig bare gemme filen - jeg må have en fejl - ummidelbart noget gæt?

kan man angive noget forkert i sin.pl fil?

Perl og Windows er ikke min specialitet. Det kan jeg ikke
hjælpe med.