perl - 如何按国家/地区获取货币？

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.