Perl 5 version 14.1 documentation



Locale::Currency - standard codes for currency identification


  1. use Locale::Currency;
  2. $curr = code2currency('usd'); # $curr gets 'US Dollar'
  3. $code = currency2code('Euro'); # $code gets 'eur'
  4. @codes = all_currency_codes();
  5. @names = all_currency_names();


The Locale::Currency module provides access to standard codes used for identifying currencies and funds, such as those defined in ISO 4217.

Most of the routines take an optional additional argument which specifies the code set to use. If not specified, the default ISO 4217 three-letter codes will be used.


There are several different code sets you can use for identifying currencies. The ones currently supported are:

  • alpha

    This is a set of three-letter (uppercase) codes from ISO 4217 such as EUR for Euro.

    Two of the codes specified by the standard (XTS which is reserved for testing purposes and XXX which is for transactions where no currency is involved) are omitted.

    This code set is identified with the symbol LOCALE_CURR_ALPHA .

    This is the default code set.

  • num

    This is the set of three-digit numeric codes from ISO 4217.

    This code set is identified with the symbol LOCALE_CURR_NUMERIC .


  • code2currency ( CODE [,CODESET] )
  • currency2code ( NAME [,CODESET] )
  • currency_code2code ( CODE ,CODESET ,CODESET2 )
  • all_currency_codes ( [CODESET] )
  • all_currency_names ( [CODESET] )
  • Locale::Currency::rename_currency ( CODE ,NEW_NAME [,CODESET] )
  • Locale::Currency::add_currency ( CODE ,NAME [,CODESET] )
  • Locale::Currency::delete_currency ( CODE [,CODESET] )
  • Locale::Currency::add_currency_alias ( NAME ,NEW_NAME )
  • Locale::Currency::delete_currency_alias ( NAME )
  • Locale::Currency::rename_currency_code ( CODE ,NEW_CODE [,CODESET] )
  • Locale::Currency::add_currency_code_alias ( CODE ,NEW_CODE [,CODESET] )
  • Locale::Currency::delete_currency_code_alias ( CODE [,CODESET] )

    These routines are all documented in the Locale::Codes man page.



See Locale::Codes for full author history.

Currently maintained by Sullivan Beck (


  1. Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
  2. Copyright (c) 2001 Michael Hennecke
  3. Copyright (c) 2001-2010 Neil Bowers
  4. Copyright (c) 2010-2011 Sullivan Beck

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.