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.
Fragen? Ab in die Kommentare!
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";
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!
Kommentare
Ansicht der Kommentare: Linear | Verschachtelt
theswiss am :
Dirk Deimeke am :