국가 별 화폐를 얻는 방법?

Question

당신은 어떻게 국가 코드 만있는 통화를 알아낼 수 있습니까? Perl에서는 이상적이지만 다른 언어 솔루션이라면 쉽게 포팅 할 수 있다고 생각합니다.

감사

Answer 1

그것은 CPAN에서 Locale::Object::Currency처럼 보인다는 당신이 필요로하는 것을 포함한다. 그것은 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

이 작업을 수행하는 웹 서비스를 찾을 수 있습니다. 예를 들어, webservicex.net은 GetCurrencyByCountry 조작을 제공합니다.

다른 방법은 국가/통화 매핑을 파일의 어딘가에서 저장 한 다음 프로그램의지도에로드하는 것입니다.