Skip to content

Währungsumrechnung ...

Ich "spiele" momentan wieder ein bisschen mit Perl herum.

Für eine kleine Herausforderung, die ich mir rund um Net::Amazon gestellt habe, suchte ich eine Währungsumrechnung, die mit aktuellen Kursen arbeitet. Dabei bin ich auf Finance::Currency::Convert::XE gestoßen. Eine funktionierende Internet-Verbindung vorausgesetzt, macht das Modul genau das, was ich von ihm möchte.

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

use lib qw( /home/lux/PerlMod/lib );

use Finance::Currency::Convert::XE;

my $chf_eur = Finance::Currency::Convert::XE->new(
        'source' => 'CHF',
        'target' => 'EUR',
        'format' => 'number'
) || die "Failed to create object\n";

my $eur = $chf_eur->convert('100.00')
        || die "Could not convert: " . $chf_eur->error . "\n";

my $eur_chf = Finance::Currency::Convert::XE->new(
        'source' => 'EUR',
        'target' => 'CHF',
        'format' => 'number'
) || die "Failed to create object\n";

my $chf = $eur_chf->convert('100.00')
        || die "Could not convert: " . $eur_chf->error . "\n";

print "100.00 CHF = $eur EUR\n";
print "100.00 EUR = $chf CHF\n";

Fragen? Ab in die Kommentare!

Trackbacks

Keine Trackbacks

Kommentare

Ansicht der Kommentare: Linear | Verschachtelt

theswiss am :

*oder man gugelt einfach nach "100 chf to eur" ;-)

Dirk Deimeke am :

*Klar, instacalc kann das auch ... aber das kann ich in einem Programm nicht verwenden.

Kommentar schreiben

Gravatar, Favatar, Pavatar, Identica, Twitter, MyBlogLog Autoren-Bilder werden unterstützt.
BBCode-Formatierung erlaubt
Umschließende Sterne heben ein Wort hervor (*wort*), per _wort_ kann ein Wort unterstrichen werden.
Standard-Text Smilies wie :-) und ;-) werden zu Bildern konvertiert.
Die angegebene E-Mail-Adresse wird nicht dargestellt, sondern nur für eventuelle Benachrichtigungen verwendet.
:'(  :-)  :-|  :-O  :-(  8-)  :-D  :-P  ;-) 
Formular-Optionen