2011-03-07 8 views
3

Comment pourriez-vous les gars comprendre devise ayant seulement le code du pays? Idéalement en Perl mais je pense que toute autre solution de langue serait assez facile à mettre en communication.Comment obtenir des devises par pays?

Merci

+0

J'ai ajouté la balise "perl" pour augmenter l'audience potentielle. Toujours voir que vous ajoutez un tag (pertinent) de langue ou de plate-forme afin que votre question soit vue par les personnes qui sont abonnées à cette balise. –

Répondre

2

Il ressemble à Locale::Object::Currency de CPAN contient ce dont vous avez besoin. Il ne semble pas avoir été mis à jour depuis 2007, cependant.

#!/usr/bin/perl 

use Locale::Object::Currency; 
use Data::Dumper; 
use strict; 
use warnings; 

my $bucks = Locale::Object::Currency->new(country_code => 'us'); 
print Dumper($bucks->symbol, $bucks->code, $bucks->name); # etc.. 

#print Dumper $bucks; # don't do this in production; use the method interface; 
         # but it does appear to have the info you need. 
-1

Vous pouvez essayer de trouver un service Web qui fait cela pour vous. Par exemple, webservicex.net fournit une opération GetCurrencyByCountry.

L'autre approche consiste à enregistrer les mappages pays/devise de quelque part dans un fichier, puis à les charger dans une carte de votre programme.

+0

Malheureusement, 'webservicex' a des informations très obsolètes à cet effet. Il a de très vieux codes remplacés pour les monnaies du Mexique, de la Roumanie et de la Turquie! – hippietrail