Hallo Skeeve,
den ersten Schritt habe ich jetzt gemacht. Es müssen aber weitere noch folgen. Ich habe immer noch Probleme:
Hier ist das HTML-Formular:
----------------
<form action="/cgi-bin/umrechner.pl" method="post">
<p>Geben Sie bitte den umzurechnenden Betrag ein:</p>
<p>
<input name="betrag" type="text" id="betrag">
</p>
<p>Wählen Sie bitte eine Option aus:</p>
<p>
<input type="radio" name="button1" value="radiobutton">
DM zu EUR</p>
<p>
<input type="radio" name="button2" value="radiobutton">
EUR zu DM</p>
<p>
<input type="submit" name="Submit" value="Umrechnen">
</p>
</form>
----------------
calculator.pl
---------------
#!usr/bin/perl
read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
my @Formularfelder = split(/&/, $Daten);
my ($Feld, $Name, $Wert);
my %Formular;
foreach $Feld (@Formularfelder) {
(my $Name, $Wert) = split(/=/, $Feld);
$betrag =~ tr/,/./;
$EUR = $betrag/1.95583;
$DM = $betrag*1.95583;
$auswahl;
if($auswahl == $Formular{button1}) {
print "<p>$EUR</p>\n";
}
elsif ($auswahl == $Formular{button2}) {
print "<p>$DM</p>\n";
}
else {
print "<p>Die Option $auswahl existiert nicht!</p>\n";
}
--------
Was mache ich hier falsch? Es kommt immer eine Fehlermeldung!