Suche

[Gruenschnabel]

So hallo zusammen
Ich sitze gerade vor einem Euro Umrechner und komme nicht weiter!  
Vielleicht kann jemand helfen!?
Das Problem ist die ifels Anweisung.
Das Umrechnen von DM nach Euro klappt  
Aber umgekehrt gibt's Probleme.  


Hier ist der Quelltext:

#!G:\FoxServ\perl\bin\perl.exe -w
#Euro Umrechner
#Ablauf:(Ablaufbeispiel für DM nach EURO)
#Geben Sie den umzurechnenden Betrag ein:
#112,12
#DM <=> Euro (1)?
#Euro <=> DM (2)?
#Ihre Wahl? :
#1
#112.12 DM sind 57.33 Euro
###########################
#Ablauf:(Ablaufbeispiel für EURO nach DM)
#Geben Sie den umzurechnenden Betrag ein:
#112,12
#DM <=> Euro (1)?
#Euro <=> DM (2)?
#Ihre Wahl? :
#2
#112.12 Euro sind 219.29 DM
############################
#Ablauf:(Ablaufbeispiel für die Angaben einer nicht existierenden Option)
#Geben Sie den umzurechnenden Betrag ein:
#112,12
#DM <=> Euro (1)?
#Euro <=> DM (2)?
#Ihre Wahl? :
#3
#Die Wahlmoeglichkeit existiert nicht !
########################################
#Hinweis: Für die Kursumrechnung legen Sie folgende Werte zu Gruende:
# 1 Euro = 1,95583 DM
# 1 DEM  = 0,51129 Euro
########################
print "Umrechner von DM nach Euro. \n";
print "Geben Sie den gewuenschnten Betrag ein und waehlen Sie 1 fuer Euro und 2 fuer DM: \n";
$input = <STDIN>;
chomp($input);
$Euroausw = 1;
$DMausw = 2;
$Euro_1 =($input/1.95583);  
$DM_2 =($input*0.51129);
$Euro = <STDIN>;
if ($FORM{$Euroausw}='1')
{
$Euro = ($input / $Euro_1);
$Euro_1 = sprintf("%.2f" , "$Euro_1");  
print qq|
$input = DM sind $Euro_1 Euro \n";
|;
}
elsif ($FORM{$DMausw}='2')
{
$input = <STDIN>;
$DM_2 = ($input / $DM_2);
$DM_2 = sprintf("%.2f" , "$DM_2");  
print qq|
$input = Euro sind $DM_2. \n";
|;
exit;
}

[Editiert am 6/8/2002 von Gruenschnabel]