Rueckgabe von Werten aus HTML-Formular - #118807 (mod_perl und Apache)

ofmueller

2009-02-11 21:59

User since
2009-02-11
2 Artikel
BenutzerIn
[default_avatar]

Bitte um kurzen Denkanstoß.

Ich habe das nachfolgende Skript geschrieben. Der Wert $eing soll durch die Funktion "sub eingabe_menue" übergeben werden. Das nachfolgende Hauptprogramm wartet aber nicht auf die Rückgabe des Wertes und gibt als Fehlermeldung heraus, dass die Variable $test ($test = eingabe_menue) nicht definiert ist, obwohl sie von der oben genannten Funktion den Wert übernehmen soll. Wenn ich endlich eine Eingabe in das fertige Formular über den Browser vornehme, wird auch der Wert für übergeben. Aber wie gesagt, bis dahin erhalte ich Fehlermeldungen, was insbesondere bei Schleifen problematisch ist (Endlosschleife).

Danke

Code (perl): (dl )

!/usr/bin/perl -w
use strict;

use CGI qw(param);
use CGI::CARP qw(fatalsToBrowser);
print "Content-type: text/html\n\n";

my $teste;

sub eingabe_menue
{
my $url = 'http://127.0.0.1/cgi-bin/cgi/woerterbuch3.pl';

print <<END;
<html>
<head><title>Vokabletrainer</title></head>
<body>
<p>Vokabeltrainer
<p>**************
<p>Menue
<p>1 Vokabeln eingeben
<p>2 Englisch - Deutsch
<p>3 Deutsch - Englisch
<p>4 Programmende
<p>
<form action='$url' method='POST'>
<p>Auswahl: 
<input type='text' name='eingabe' value=''>
<input type='submit' name='submit' value='Abschicken'>
<\/form>
<\/p>
<\/body>
<\/html>
END
        my $eing = 0;
        if (param()) {
                $eing = param('eingabe');
        }

return [b]$eing = param('eingabe');[/b] 
}