Is there a variable or function that returns the native platform encoding (APR_LOCALE

ELISHEVA has asked for the wisdom of the Perl Monks concerning the following question:

In the subversion C/C++ API one of the function parameters defaults to a "locale encoding" which apparently is the native encoding used by the platform where the subversion client is running. I've been trying to find out how to use Perl to tell me the "locale" encoding and I'm having no luck. I'm sure I'm just not looking in the right place, but I wonder if one of the esteemed monks would be willing to tell me where this little tidbit is hiding.

So far I have tried:

http://perldoc.perl.org/Encode.html - this tells me how to turn a particular IANA encoding into an encoding object, but not how to get the IANA name for the platform encoding (did I miss something?)
http://perldoc.perl.org/Perlunicode.html
http://perldoc.perl.org/Locale.html
google and SuperSearch for tutorials on the topic
http://perldoc.perl.org/Perlvar.html - you never know - all sorts of wonderful things hide there, but not this. (Or did I miss it?)

Many thanks in advance, beth

Note: the subversion perl API does have such a function, called svn_locale_charset(), located in core.i. I'm interested in a pure Perl equivalent.

Note2:The ideal would be platform independent (works on all Perl supported systems), but a stop-gap would be a collection of OS-specific functions that I could wrap together with some OS detection code.

Comment on Is there a variable or function that returns the native platform encoding (APR_LOCALE_CHARSET)

Replies are listed 'Best First'.
Re: Is there a variable or function equivalent to APR_LOCALE_CHARSET (native platform encoding) by cdarke (Prior) on Feb 01, 2009 at 14:10 UTC
POSIX::setlocale, which not only sets, but can also query the locale.	[reply]
Re^2: Is there a variable or function equivalent to APR_LOCALE_CHARSET (native platform encoding) by ELISHEVA (Prior) on Feb 01, 2009 at 14:19 UTC
Thanks! That's the locale, which isn't quite the same thing as the IANA name of the character set (I think). How do I get from the return value of `setlocale(...)` to the encoding? `POSIX::localeconv(..)` only gives me numeric formatting conventions.	[reply] [d/l] [select]
Re^3: Is there a variable or function equivalent to APR_LOCALE_CHARSET (native platform encoding) by Anonymous Monk on Feb 01, 2009 at 18:58 UTC
Stop thinking :P http://www.iana.org/assignments/character-sets `Name: ISO_8859-5:1988 [RFC1345,KXS +2] MIBenum: 8 Source: ECMA registry Alias: iso-ir-144 Alias: ISO_8859-5 Alias: ISO-8859-5 (preferred MIME name) Alias: cyrillic Alias: csISOLatinCyrillic` [download] I18N::Charset, I18N::LangTags::Detect	[reply] [d/l]
Re^4: Is there a variable or function equivalent to APR_LOCALE_CHARSET (native platform encoding) by ELISHEVA (Prior) on Feb 02, 2009 at 04:41 UTC
Re^5: Is there a variable or function equivalent to APR_LOCALE_CHARSET (native platform encoding) by Anonymous Monk on Feb 03, 2009 at 14:50 UTC