如何按国家获取货币？

Question

你们会怎么弄出只有国家代码的货币？理想情况下，在Perl中，但我认为任何其他语言解决方案都很容易移植。

感谢

Answer 1

它看起来像Locale::Object::Currency从CPAN包含了你所需要的。但是，自2007年以来似乎没有更新过。

#!/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. 

Answer 2

你可以尝试找到一个为你做这个的web服务。例如，webservicex.net提供了一个GetCurrencyByCountry操作。

另一种方法是从某处的国家/货币映射保存到一个文件，然后将它们加载到你的程序的地图。