anaboe.net

Währungsumrechnung mit dem Finance::XRefEUR-Modul

Name

Finance::XRefEUR - Perlmodul zur Währungsumrechnung von und nach Euro.

Modulversion: 1.0 Beta

Source | Download

Synopsis

use Finance::XRefEUR;

my $exc = Finance::XRefEUR->new();
$exc->initializeData() || die $Finance::XRefEUR::ErrorMsg;

# Holen aller aktuell verfügbaren Kurse
my $kurse = $exc->getAllXRef();
while( my($k,$v) = each %$kurse ) {
  print "$k => $v\n";
}

# Holen eines spezifischen Kurses mit Datum
my $kurs = $exc->getSpecXRef('USD') || die $Finance::XRefEUR::ErrorMSg;
my $datum = $exc->getXRefDate();
print "Kurs vom $datum: 1 Euro = $kurs USD\n";

# Umrechnen von Fremdwährung in Euro
my $kurs = $exc->convertToEUR(1.2, 'USD') || die $Finance::XRefEUR::ErrorMsg;
print "1.2 USD = $kurs EUR\n";

# Umrechnen von Euro in Fremdwährung
my $kurs = $exc->convertFromEUR(1.2, 'USD') || die $Finance::XRefEUR::ErrorMSg;
print "1.2 EUR = $kurs USD\n";

Beschreibung

Das Modul Finance::XRefEUR stellt dem Anwender den objektorientierten Zugriff auf die tagesaktuellen Euroumrechnungskurse zur Verfügung. Als Datenquelle wird eine von der EZB bereitgestellte XML-Datei genutzt.

Das Modul erfordert das Paket libwww-perl.

Methoden

new(\%options)

my $exc = Finance::XRefEUR->new( { save_dir => '/some/path', on_the_fly => 1 } );

Erzeugt eine neue Objektinstanz unter Beachtung der über \%options übergebenen Parameter:

on_the_fly legt fest, ob die abgerufenen Daten in der Datei xref_yyyy-mm-dd.dat zwischengespeichert werden sollen oder nicht. Standardwert ist false, um den Modus einzuschalten, übergeben Sie einen wahren Wert.

save_dir setzt den Pfad zur Datendatei. Standardmäßig ist dies der Pfad, der in der CGI-Umgebungsvariablen DOCUMENT_ROOT gespeichert ist. Der schließende Slash ist optional und wird bei Bedarf automatisch ergänzt.

initializeData

Initialisiert die Daten. Die Methode gibt undef zurück, wenn die Initialisierung fehl geschlagen ist, den Grund erfahren Sie durch Abfrage von $Finance::XRefEUR::ErrorMsg:

$exc->initializeData() || die $Finance::XRefEUR::ErrorMsg;

getSpecXRef($cur)

Die Methode gibt den Umrechnungskurs der mittels $cur übergebenen Währung zurück. Bei dem übergebenen Wert muss es sich um ein gültiges internationales Währungskürzel gemäß ISO-4217 handeln.

getAllXRef

Die Methode erwartet keine Parameter und gibt alle verfügbaren Umrechnungskurse zurück. Der Rückgabewert ist eine Hashreferenz, die internationalen Währungskürzel sind die Hashkeys.

getXRefDate

Die Methode erwartet keine Parameter und liefert das Datum zurück, zu dem die verfügbaren Umrechnungskurse ausgegeben wurden.

convertFromEUR($wert, $cur)

Die Methode rechnet $wert EUR in die mit $cur angegebene Währung um und liefert das Ergebnis als zweistellige Fließkommazahl.

convertToEUR($wert, $cur)

Die Methode rechnet $wert Einheiten der mit $cur angegebene Währung in EUR um und liefert das Ergebnis als zweistellige Fließkommazahl.

Bugs

Bug-Reports bitte an die E-Mail torsten@anaboe.net.

Siehe auch

Finance::Quote | Finance::Currency::Convert

Autor, Copyright und Lizenz

Finance::XRefEUR wurde von Torsten Anacker geschrieben. Das Modul ist freie Software und kann nach den selben Regeln verbreitet und verändert werden wie Perl selber.