如何按國家獲取貨幣？

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操作。

另一種方法是從某處的國家/貨幣映射保存到一個文件，然後將它們加載到你的程序的地圖。