| 1 | #
|
|---|
| 2 | # Locale::Currency - ISO three letter codes for currency identification
|
|---|
| 3 | # (ISO 4217)
|
|---|
| 4 | #
|
|---|
| 5 | # $Id: Currency.pm,v 2.7 2004/06/10 21:19:34 neilb Exp $
|
|---|
| 6 | #
|
|---|
| 7 |
|
|---|
| 8 | package Locale::Currency;
|
|---|
| 9 | use strict;
|
|---|
| 10 | require 5.002;
|
|---|
| 11 |
|
|---|
| 12 | require Exporter;
|
|---|
| 13 |
|
|---|
| 14 | #-----------------------------------------------------------------------
|
|---|
| 15 | # Public Global Variables
|
|---|
| 16 | #-----------------------------------------------------------------------
|
|---|
| 17 | use vars qw($VERSION @ISA @EXPORT);
|
|---|
| 18 | $VERSION = sprintf("%d.%02d", q$Revision: 2.7 $ =~ /(\d+)\.(\d+)/);
|
|---|
| 19 | @ISA = qw(Exporter);
|
|---|
| 20 | @EXPORT = qw(&code2currency ¤cy2code
|
|---|
| 21 | &all_currency_codes &all_currency_names );
|
|---|
| 22 |
|
|---|
| 23 | #-----------------------------------------------------------------------
|
|---|
| 24 | # Private Global Variables
|
|---|
| 25 | #-----------------------------------------------------------------------
|
|---|
| 26 | my %CODES = ();
|
|---|
| 27 | my %CURRENCIES = ();
|
|---|
| 28 |
|
|---|
| 29 |
|
|---|
| 30 | #=======================================================================
|
|---|
| 31 | #
|
|---|
| 32 | # code2currency( CODE )
|
|---|
| 33 | #
|
|---|
| 34 | #=======================================================================
|
|---|
| 35 | sub code2currency
|
|---|
| 36 | {
|
|---|
| 37 | my $code = shift;
|
|---|
| 38 |
|
|---|
| 39 |
|
|---|
| 40 | return undef unless defined $code;
|
|---|
| 41 | $code = lc($code);
|
|---|
| 42 | if (exists $CODES{$code})
|
|---|
| 43 | {
|
|---|
| 44 | return $CODES{$code};
|
|---|
| 45 | }
|
|---|
| 46 | else
|
|---|
| 47 | {
|
|---|
| 48 | #---------------------------------------------------------------
|
|---|
| 49 | # no such currency code!
|
|---|
| 50 | #---------------------------------------------------------------
|
|---|
| 51 | return undef;
|
|---|
| 52 | }
|
|---|
| 53 | }
|
|---|
| 54 |
|
|---|
| 55 |
|
|---|
| 56 | #=======================================================================
|
|---|
| 57 | #
|
|---|
| 58 | # currency2code ( CURRENCY )
|
|---|
| 59 | #
|
|---|
| 60 | #=======================================================================
|
|---|
| 61 | sub currency2code
|
|---|
| 62 | {
|
|---|
| 63 | my $curr = shift;
|
|---|
| 64 |
|
|---|
| 65 |
|
|---|
| 66 | return undef unless defined $curr;
|
|---|
| 67 | $curr = lc($curr);
|
|---|
| 68 | if (exists $CURRENCIES{$curr})
|
|---|
| 69 | {
|
|---|
| 70 | return $CURRENCIES{$curr};
|
|---|
| 71 | }
|
|---|
| 72 | else
|
|---|
| 73 | {
|
|---|
| 74 | #---------------------------------------------------------------
|
|---|
| 75 | # no such currency!
|
|---|
| 76 | #---------------------------------------------------------------
|
|---|
| 77 | return undef;
|
|---|
| 78 | }
|
|---|
| 79 | }
|
|---|
| 80 |
|
|---|
| 81 |
|
|---|
| 82 | #=======================================================================
|
|---|
| 83 | #
|
|---|
| 84 | # all_currency_codes()
|
|---|
| 85 | #
|
|---|
| 86 | #=======================================================================
|
|---|
| 87 | sub all_currency_codes
|
|---|
| 88 | {
|
|---|
| 89 | return keys %CODES;
|
|---|
| 90 | }
|
|---|
| 91 |
|
|---|
| 92 |
|
|---|
| 93 | #=======================================================================
|
|---|
| 94 | #
|
|---|
| 95 | # all_currency_names()
|
|---|
| 96 | #
|
|---|
| 97 | #=======================================================================
|
|---|
| 98 | sub all_currency_names
|
|---|
| 99 | {
|
|---|
| 100 | return values %CODES;
|
|---|
| 101 | }
|
|---|
| 102 |
|
|---|
| 103 |
|
|---|
| 104 | #=======================================================================
|
|---|
| 105 | # initialisation code - stuff the DATA into the CODES hash
|
|---|
| 106 | #=======================================================================
|
|---|
| 107 | {
|
|---|
| 108 | my $code;
|
|---|
| 109 | my $currency;
|
|---|
| 110 | local $_;
|
|---|
| 111 |
|
|---|
| 112 |
|
|---|
| 113 | while (<DATA>)
|
|---|
| 114 | {
|
|---|
| 115 | next unless /\S/;
|
|---|
| 116 | chop;
|
|---|
| 117 | ($code, $currency) = split(/:/, $_, 2);
|
|---|
| 118 | $CODES{$code} = $currency;
|
|---|
| 119 | $CURRENCIES{"\L$currency"} = $code;
|
|---|
| 120 | }
|
|---|
| 121 |
|
|---|
| 122 | close(DATA);
|
|---|
| 123 | }
|
|---|
| 124 |
|
|---|
| 125 | 1;
|
|---|
| 126 |
|
|---|
| 127 | __DATA__
|
|---|
| 128 | adp:Andorran Peseta
|
|---|
| 129 | aed:UAE Dirham
|
|---|
| 130 | afa:Afghani
|
|---|
| 131 | all:Lek
|
|---|
| 132 | amd:Armenian Dram
|
|---|
| 133 | ang:Netherlands Antillean Guilder
|
|---|
| 134 | aoa:Kwanza
|
|---|
| 135 | aon:New Kwanza
|
|---|
| 136 | aor:Kwanza Reajustado
|
|---|
| 137 | ars:Argentine Peso
|
|---|
| 138 | ats:Schilling
|
|---|
| 139 | aud:Australian Dollar
|
|---|
| 140 | awg:Aruban Guilder
|
|---|
| 141 | azm:Azerbaijanian Manat
|
|---|
| 142 |
|
|---|
| 143 | bam:Convertible Marks
|
|---|
| 144 | bbd:Barbados Dollar
|
|---|
| 145 | bdt:Taka
|
|---|
| 146 | bef:Belgian Franc
|
|---|
| 147 | bgl:Lev
|
|---|
| 148 | bgn:Bulgarian Lev
|
|---|
| 149 | bhd:Bahraini Dinar
|
|---|
| 150 | bhd:Dinar
|
|---|
| 151 | bif:Burundi Franc
|
|---|
| 152 | bmd:Bermudian Dollar
|
|---|
| 153 | bnd:Brunei Dollar
|
|---|
| 154 | bob:Boliviano
|
|---|
| 155 | bov:MVDol
|
|---|
| 156 | brl:Brazilian Real
|
|---|
| 157 | bsd:Bahamian Dollar
|
|---|
| 158 | btn:Ngultrum
|
|---|
| 159 | bwp:Pula
|
|---|
| 160 | byb:Belarussian Ruble
|
|---|
| 161 | byr:Belarussian Ruble
|
|---|
| 162 | bzd:Belize Dollar
|
|---|
| 163 |
|
|---|
| 164 | cad:Canadian Dollar
|
|---|
| 165 | cdf:Franc Congolais
|
|---|
| 166 | chf:Swiss Franc
|
|---|
| 167 | clf:Unidades de Formento
|
|---|
| 168 | clp:Chilean Peso
|
|---|
| 169 | cny:Yuan Renminbi
|
|---|
| 170 | cop:Colombian Peso
|
|---|
| 171 | crc:Costa Rican Colon
|
|---|
| 172 | cup:Cuban Peso
|
|---|
| 173 | cve:Cape Verde Escudo
|
|---|
| 174 | cyp:Cyprus Pound
|
|---|
| 175 | czk:Czech Koruna
|
|---|
| 176 |
|
|---|
| 177 | dem:German Mark
|
|---|
| 178 | djf:Djibouti Franc
|
|---|
| 179 | dkk:Danish Krone
|
|---|
| 180 | dop:Dominican Peso
|
|---|
| 181 | dzd:Algerian Dinar
|
|---|
| 182 |
|
|---|
| 183 | ecs:Sucre
|
|---|
| 184 | ecv:Unidad de Valor Constante (UVC)
|
|---|
| 185 | eek:Kroon
|
|---|
| 186 | egp:Egyptian Pound
|
|---|
| 187 | ern:Nakfa
|
|---|
| 188 | esp:Spanish Peseta
|
|---|
| 189 | etb:Ethiopian Birr
|
|---|
| 190 | eur:Euro
|
|---|
| 191 |
|
|---|
| 192 | fim:Markka
|
|---|
| 193 | fjd:Fiji Dollar
|
|---|
| 194 | fkp:Falkland Islands Pound
|
|---|
| 195 | frf:French Franc
|
|---|
| 196 |
|
|---|
| 197 | gbp:Pound Sterling
|
|---|
| 198 | gel:Lari
|
|---|
| 199 | ghc:Cedi
|
|---|
| 200 | gip:Gibraltar Pound
|
|---|
| 201 | gmd:Dalasi
|
|---|
| 202 | gnf:Guinea Franc
|
|---|
| 203 | grd:Drachma
|
|---|
| 204 | gtq:Quetzal
|
|---|
| 205 | gwp:Guinea-Bissau Peso
|
|---|
| 206 | gyd:Guyana Dollar
|
|---|
| 207 |
|
|---|
| 208 | hkd:Hong Kong Dollar
|
|---|
| 209 | hnl:Lempira
|
|---|
| 210 | hrk:Kuna
|
|---|
| 211 | htg:Gourde
|
|---|
| 212 | huf:Forint
|
|---|
| 213 |
|
|---|
| 214 | idr:Rupiah
|
|---|
| 215 | iep:Irish Pound
|
|---|
| 216 | ils:Shekel
|
|---|
| 217 | inr:Indian Rupee
|
|---|
| 218 | iqd:Iraqi Dinar
|
|---|
| 219 | irr:Iranian Rial
|
|---|
| 220 | isk:Iceland Krona
|
|---|
| 221 | itl:Italian Lira
|
|---|
| 222 |
|
|---|
| 223 | jmd:Jamaican Dollar
|
|---|
| 224 | jod:Jordanian Dinar
|
|---|
| 225 | jpy:Yen
|
|---|
| 226 |
|
|---|
| 227 | kes:Kenyan Shilling
|
|---|
| 228 | kgs:Som
|
|---|
| 229 | khr:Riel
|
|---|
| 230 | kmf:Comoro Franc
|
|---|
| 231 | kpw:North Korean Won
|
|---|
| 232 | krw:Won
|
|---|
| 233 | kwd:Kuwaiti Dinar
|
|---|
| 234 | kyd:Cayman Islands Dollar
|
|---|
| 235 | kzt:Tenge
|
|---|
| 236 |
|
|---|
| 237 | lak:Kip
|
|---|
| 238 | lbp:Lebanese Pound
|
|---|
| 239 | lkr:Sri Lanka Rupee
|
|---|
| 240 | lrd:Liberian Dollar
|
|---|
| 241 | lsl:Loti
|
|---|
| 242 | ltl:Lithuanian Litas
|
|---|
| 243 | luf:Luxembourg Franc
|
|---|
| 244 | lvl:Latvian Lats
|
|---|
| 245 | lyd:Libyan Dinar
|
|---|
| 246 |
|
|---|
| 247 | mad:Moroccan Dirham
|
|---|
| 248 | mdl:Moldovan Leu
|
|---|
| 249 | mgf:Malagasy Franc
|
|---|
| 250 | mkd:Denar
|
|---|
| 251 | mmk:Kyat
|
|---|
| 252 | mnt:Tugrik
|
|---|
| 253 | mop:Pataca
|
|---|
| 254 | mro:Ouguiya
|
|---|
| 255 | mtl:Maltese Lira
|
|---|
| 256 | mur:Mauritius Rupee
|
|---|
| 257 | mvr:Rufiyaa
|
|---|
| 258 | mwk:Kwacha
|
|---|
| 259 | mxn:Mexican Nuevo Peso
|
|---|
| 260 | myr:Malaysian Ringgit
|
|---|
| 261 | mzm:Metical
|
|---|
| 262 |
|
|---|
| 263 | nad:Namibia Dollar
|
|---|
| 264 | ngn:Naira
|
|---|
| 265 | nio:Cordoba Oro
|
|---|
| 266 | nlg:Netherlands Guilder
|
|---|
| 267 | nok:Norwegian Krone
|
|---|
| 268 | npr:Nepalese Rupee
|
|---|
| 269 | nzd:New Zealand Dollar
|
|---|
| 270 |
|
|---|
| 271 | omr:Rial Omani
|
|---|
| 272 |
|
|---|
| 273 | pab:Balboa
|
|---|
| 274 | pen:Nuevo Sol
|
|---|
| 275 | pgk:Kina
|
|---|
| 276 | php:Philippine Peso
|
|---|
| 277 | pkr:Pakistan Rupee
|
|---|
| 278 | pln:Zloty
|
|---|
| 279 | pte:Portuguese Escudo
|
|---|
| 280 | pyg:Guarani
|
|---|
| 281 |
|
|---|
| 282 | qar:Qatari Rial
|
|---|
| 283 |
|
|---|
| 284 | rol:Leu
|
|---|
| 285 | rub:Russian Ruble
|
|---|
| 286 | rur:Russian Ruble
|
|---|
| 287 | rwf:Rwanda Franc
|
|---|
| 288 |
|
|---|
| 289 | sar:Saudi Riyal
|
|---|
| 290 | sbd:Solomon Islands Dollar
|
|---|
| 291 | scr:Seychelles Rupee
|
|---|
| 292 | sdd:Sudanese Dinar
|
|---|
| 293 | sek:Swedish Krona
|
|---|
| 294 | sgd:Singapore Dollar
|
|---|
| 295 | shp:St. Helena Pound
|
|---|
| 296 | sit:Tolar
|
|---|
| 297 | skk:Slovak Koruna
|
|---|
| 298 | sll:Leone
|
|---|
| 299 | sos:Somali Shilling
|
|---|
| 300 | srg:Surinam Guilder
|
|---|
| 301 | std:Dobra
|
|---|
| 302 | svc:El Salvador Colon
|
|---|
| 303 | syp:Syrian Pound
|
|---|
| 304 | szl:Lilangeni
|
|---|
| 305 |
|
|---|
| 306 | thb:Baht
|
|---|
| 307 | tjr:Tajik Ruble
|
|---|
| 308 | tmm:Manat
|
|---|
| 309 | tnd:Tunisian Dollar
|
|---|
| 310 | top:Pa'anga
|
|---|
| 311 | tpe:Timor Escudo
|
|---|
| 312 | trl:Turkish Lira
|
|---|
| 313 | ttd:Trinidad and Tobago Dollar
|
|---|
| 314 | twd:New Taiwan Dollar
|
|---|
| 315 | tzs:Tanzanian Shilling
|
|---|
| 316 |
|
|---|
| 317 | uah:Hryvnia
|
|---|
| 318 | uak:Karbovanets
|
|---|
| 319 | ugx:Uganda Shilling
|
|---|
| 320 | usd:US Dollar
|
|---|
| 321 | usn:US Dollar (Next day)
|
|---|
| 322 | uss:US Dollar (Same day)
|
|---|
| 323 | uyu:Peso Uruguayo
|
|---|
| 324 | uzs:Uzbekistan Sum
|
|---|
| 325 |
|
|---|
| 326 | veb:Bolivar
|
|---|
| 327 | vnd:Dong
|
|---|
| 328 | vuv:Vatu
|
|---|
| 329 |
|
|---|
| 330 | wst:Tala
|
|---|
| 331 |
|
|---|
| 332 | xaf:CFA Franc BEAC
|
|---|
| 333 | xag:Silver
|
|---|
| 334 | xau:Gold
|
|---|
| 335 | xba:European Composite Unit
|
|---|
| 336 | xbb:European Monetary Unit
|
|---|
| 337 | xbc:European Unit of Account 9
|
|---|
| 338 | xb5:European Unit of Account 17
|
|---|
| 339 | xcd:East Caribbean Dollar
|
|---|
| 340 | xdr:SDR
|
|---|
| 341 | xeu:ECU (until 1998-12-31)
|
|---|
| 342 | xfu:UIC-Franc
|
|---|
| 343 | xfo:Gold-Franc
|
|---|
| 344 | xof:CFA Franc BCEAO
|
|---|
| 345 | xpd:Palladium
|
|---|
| 346 | xpf:CFP Franc
|
|---|
| 347 | xpt:Platinum
|
|---|
| 348 |
|
|---|
| 349 | yer:Yemeni Rial
|
|---|
| 350 | yum:New Dinar
|
|---|
| 351 |
|
|---|
| 352 | zal:Financial Rand
|
|---|
| 353 | zar:Rand
|
|---|
| 354 | zmk:Kwacha
|
|---|
| 355 | zrn:New Zaire
|
|---|
| 356 | zwd:Zimbabwe Dollar
|
|---|
