Как получить валюту по стране?

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

Вы можете попробовать найти веб-сервис, который сделает это за вас.Например, webservicex.net предоставляет операцию GetCurrencyByCountry .

Другой подход заключается в сохранении сопоставлений страны / валюты откуда-то в файле и их последующей загрузке вкарта в вашей программе.