Euro in DM umrechen via Perl

Computer: Software & Programmierung Perl & CGI
#1

Hallo, ich würde gerne ein kleines Konsolenprogramm erstellen das den Kurs von Euro nach DM oder von DM nach Euro umrechnet.

#2

Hallo, ich würde gerne ein kleines Konsolenprogramm erstellen
das den Kurs von Euro nach DM oder von DM nach Euro umrechnet.

Interessant. Und wie genau können wir dir helfen?

#3

Also das sieht in etwa so aus:
Man gibt einen Betrag an z.b. 32,23 , und dann hat man die auswahl zwischen DM->€ oder €->DM. Bloss hab ich echt keine ahnung wie ich das umsetzen kann.

#4

Also das sieht in etwa so aus:
Man gibt einen Betrag an z.b. 32,23 , und dann hat man die
auswahl zwischen DM->€ oder €->DM. Bloss hab ich echt
keine ahnung wie ich das umsetzen kann.

Und das muss unbedingt in Perl sein? Für welches Betriebssystem brauchst du das? Ich würde dir eher zu Batch oder einem Shellscript raten.

#5

Auch hallo.

Hallo, ich würde gerne ein kleines Konsolenprogramm erstellen
das den Kurs von Euro nach DM oder von DM nach Euro umrechnet.

Zumindest den ersten Teil kann man mithilfe von ISBN 3-8272-6904-0 Buch anschauen (Seite 650) erledigen:

#!/usr/bin/perl
use strict;
use warnings;
my $kurs = 1.98; #1 Eu ~ 1.98 DM (hoffentlich :wink: )
print "Euro-Preis: ";
my $euro = ;
chomp $euro;
my $dm = $kurs \* $euro;
$dm = sprintf "%.2f",$dm;
print "DM-Preis: $dm";

mfg M.L.

#6

Ja, das sollte schon in Perl sein.

#7

Ja, das sollte schon in Perl sein.

Dann wäre das hier doch genau das Richtige für dich:
http://de.wikibooks.org/wiki/Perl-Programmierung

#8

Danke M.L. für deine Hilfe :smile:. Kann man das eigentlich auch so machen das z.b. statt 2.39DM den Punkt in ein Komma macht? Und irgendwie kommen bei mir da mehrere stellen nach dem Punkt…kann man das auf 2 stellen begrenzen?

#9

Hallo,

Danke M.L. für deine Hilfe :smile:. Kann man das eigentlich auch so
machen das z.b. statt 2.39DM den Punkt in ein Komma macht?

Ja, da gibt es zwei Möglichkeiten.
Die einfachere ist eine Textersetzung, da hilft dir der tr-Operator.
Die komplizierte ist die locales richtig einzustellen, das würde ich dir als Anfänger noch nicht zumuten wollen.

Und
irgendwie kommen bei mir da mehrere stellen nach dem
Punkt…kann man das auf 2 stellen begrenzen?

Aber sicher, mit den Funktionen printf oder sprintf. Die Dokumentation von sprintf enthält auch einige Beispiele.

Grüße,
Moritz

#10

Also ich hab mich jetz mal schlau gemacht was das mit den 2 stellen nach dem Komma funktionieren soll.

$krumme = 15.1521345
$gestutzt = sprintf("%.2f", $krumme);
print „$gestutzt\n“;

leider hab ich ka wie ich das in das script einfügen könnte.

#11

Leider kann man die Artikel nicht editieren :smiley: deswegen schreib ich grad mal noch einen :frowning:) *ups*.

Wie genau funktioniert das mit dem Komma statt Punkt ?

#12

Soooo :smile:, ich hab das jetz endlich hinbekommen dank eurer Hilfe *gg*. Nun stellt sich mir nur doch die Frage wie ich das als CGI anwendung umsetzen kann um auf meine hp zu tun.

#13

Hallo erstmal.

Nun stellt sich mir nur doch die Frage wie ich das
als CGI anwendung umsetzen kann um auf meine hp zu tun.

:open_mouth:
Eine Datei als .cgi anlegen, diese perlseitig mit einem passenden Header versehen und z.B. die HTML-Befehle ausgeben lassen. Ein wenig Google’n nach +„use CGI“ + ergibt z.B. http://www.teialehrbuch.de/Kostenlose-Kurse/Perl-und…

mfg M.L.

#14

Also ich komm hier net ganz weiter :/…hab bis jetz das hier gemacht, aber das haut nicht so ganz hin *gg*

use strict;
use CGI;
my $query = CGI->new();
print $query-> my $kurs = 1.98; #1 Eu ~ 1.98 DM
print "Euro-Preis: ";
my $euro = ;
chomp $euro;
my $dm = $kurs * $euro;
$dm = sprintf „%.2f“,$dm;
print „DM-Preis: $dm“;
print „\n“;

#15

Also ich komm hier net ganz weiter :/…hab bis jetz das hier
gemacht, aber das haut nicht so ganz hin *gg*

Klar, wenn man Konsoleneingaben und Eingaben auf Webseiten vermischt…
Als weiteren Hinweis kann man mit Google nach "print (

....

Tags angegeben.

mfg M.L.

#16

Also irgendwie komm ich da nich weiter :confused: (typisch frau *gg*). Dann muss die neue Page noch warten :frowning:.