currency.pm
来自「视频监控网络部分的协议ddns,的模块的实现代码,请大家大胆指正.」· PM 代码 · 共 357 行
PM
357 行
## Locale::Currency - ISO three letter codes for currency identification# (ISO 4217)## $Id: Currency.pm,v 2.7 2004/06/10 21:19:34 neilb Exp $#package Locale::Currency;use strict;require 5.002;require Exporter;#-----------------------------------------------------------------------# Public Global Variables#-----------------------------------------------------------------------use vars qw($VERSION @ISA @EXPORT);$VERSION = sprintf("%d.%02d", q$Revision: 2.7 $ =~ /(\d+)\.(\d+)/);@ISA = qw(Exporter);@EXPORT = qw(&code2currency ¤cy2code &all_currency_codes &all_currency_names );#-----------------------------------------------------------------------# Private Global Variables#-----------------------------------------------------------------------my %CODES = ();my %CURRENCIES = ();#=======================================================================## code2currency( CODE )##=======================================================================sub code2currency{ my $code = shift; return undef unless defined $code; $code = lc($code); if (exists $CODES{$code}) { return $CODES{$code}; } else { #--------------------------------------------------------------- # no such currency code! #--------------------------------------------------------------- return undef; }}#=======================================================================## currency2code ( CURRENCY )##=======================================================================sub currency2code{ my $curr = shift; return undef unless defined $curr; $curr = lc($curr); if (exists $CURRENCIES{$curr}) { return $CURRENCIES{$curr}; } else { #--------------------------------------------------------------- # no such currency! #--------------------------------------------------------------- return undef; }}#=======================================================================## all_currency_codes()##=======================================================================sub all_currency_codes{ return keys %CODES;}#=======================================================================## all_currency_names()##=======================================================================sub all_currency_names{ return values %CODES;}#=======================================================================# initialisation code - stuff the DATA into the CODES hash#======================================================================={ my $code; my $currency; local $_; while (<DATA>) { next unless /\S/; chop; ($code, $currency) = split(/:/, $_, 2); $CODES{$code} = $currency; $CURRENCIES{"\L$currency"} = $code; } close(DATA);}1;__DATA__adp:Andorran Pesetaaed:UAE Dirhamafa:Afghaniall:Lekamd:Armenian Dramang:Netherlands Antillean Guilderaoa:Kwanzaaon:New Kwanzaaor:Kwanza Reajustadoars:Argentine Pesoats:Schillingaud:Australian Dollarawg:Aruban Guilderazm:Azerbaijanian Manatbam:Convertible Marksbbd:Barbados Dollarbdt:Takabef:Belgian Francbgl:Levbgn:Bulgarian Levbhd:Bahraini Dinarbhd:Dinarbif:Burundi Francbmd:Bermudian Dollarbnd:Brunei Dollarbob:Bolivianobov:MVDolbrl:Brazilian Realbsd:Bahamian Dollarbtn:Ngultrumbwp:Pulabyb:Belarussian Rublebyr:Belarussian Rublebzd:Belize Dollarcad:Canadian Dollarcdf:Franc Congolaischf:Swiss Francclf:Unidades de Formentoclp:Chilean Pesocny:Yuan Renminbicop:Colombian Pesocrc:Costa Rican Coloncup:Cuban Pesocve:Cape Verde Escudocyp:Cyprus Poundczk:Czech Korunadem:German Markdjf:Djibouti Francdkk:Danish Kronedop:Dominican Pesodzd:Algerian Dinarecs:Sucreecv:Unidad de Valor Constante (UVC)eek:Kroonegp:Egyptian Poundern:Nakfaesp:Spanish Pesetaetb:Ethiopian Birreur:Eurofim:Markkafjd:Fiji Dollarfkp:Falkland Islands Poundfrf:French Francgbp:Pound Sterlinggel:Larighc:Cedigip:Gibraltar Poundgmd:Dalasignf:Guinea Francgrd:Drachmagtq:Quetzalgwp:Guinea-Bissau Pesogyd:Guyana Dollarhkd:Hong Kong Dollarhnl:Lempirahrk:Kunahtg:Gourdehuf:Forintidr:Rupiahiep:Irish Poundils:Shekelinr:Indian Rupeeiqd:Iraqi Dinarirr:Iranian Rialisk:Iceland Kronaitl:Italian Lirajmd:Jamaican Dollarjod:Jordanian Dinarjpy:Yenkes:Kenyan Shillingkgs:Somkhr:Rielkmf:Comoro Franckpw:North Korean Wonkrw:Wonkwd:Kuwaiti Dinarkyd:Cayman Islands Dollarkzt:Tengelak:Kiplbp:Lebanese Poundlkr:Sri Lanka Rupeelrd:Liberian Dollarlsl:Lotiltl:Lithuanian Litasluf:Luxembourg Franclvl:Latvian Latslyd:Libyan Dinarmad:Moroccan Dirhammdl:Moldovan Leumgf:Malagasy Francmkd:Denarmmk:Kyatmnt:Tugrikmop:Patacamro:Ouguiyamtl:Maltese Liramur:Mauritius Rupeemvr:Rufiyaamwk:Kwachamxn:Mexican Nuevo Pesomyr:Malaysian Ringgitmzm:Meticalnad:Namibia Dollarngn:Nairanio:Cordoba Oronlg:Netherlands Guildernok:Norwegian Kronenpr:Nepalese Rupeenzd:New Zealand Dollaromr:Rial Omanipab:Balboapen:Nuevo Solpgk:Kinaphp:Philippine Pesopkr:Pakistan Rupeepln:Zlotypte:Portuguese Escudopyg:Guaraniqar:Qatari Rialrol:Leurub:Russian Rublerur:Russian Rublerwf:Rwanda Francsar:Saudi Riyalsbd:Solomon Islands Dollarscr:Seychelles Rupeesdd:Sudanese Dinarsek:Swedish Kronasgd:Singapore Dollarshp:St. Helena Poundsit:Tolarskk:Slovak Korunasll:Leonesos:Somali Shillingsrg:Surinam Guilderstd:Dobrasvc:El Salvador Colonsyp:Syrian Poundszl:Lilangenithb:Bahttjr:Tajik Rubletmm:Manattnd:Tunisian Dollartop:Pa'angatpe:Timor Escudotrl:Turkish Lirattd:Trinidad and Tobago Dollartwd:New Taiwan Dollartzs:Tanzanian Shillinguah:Hryvniauak:Karbovanetsugx:Uganda Shillingusd:US Dollarusn:US Dollar (Next day)uss:US Dollar (Same day)uyu:Peso Uruguayouzs:Uzbekistan Sumveb:Bolivarvnd:Dongvuv:Vatuwst:Talaxaf:CFA Franc BEACxag:Silverxau:Goldxba:European Composite Unitxbb:European Monetary Unitxbc:European Unit of Account 9xb5:European Unit of Account 17xcd:East Caribbean Dollarxdr:SDRxeu:ECU (until 1998-12-31)xfu:UIC-Francxfo:Gold-Francxof:CFA Franc BCEAOxpd:Palladiumxpf:CFP Francxpt:Platinumyer:Yemeni Rialyum:New Dinarzal:Financial Randzar:Randzmk:Kwachazrn:New Zairezwd:Zimbabwe Dollar⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?