NAME
Log::Report::Win32Locale - unix/windows locales
INHERITANCE
Log::Report::Win32Locale
is a Exporter
DESCRIPTION
Windows uses different locales to represent languages: codepages. Programs which are written with Log::Report however, will contain ISO encoded language names; this module translates between them.
The algorithms in this module are based on Win32::Locale and Win32::Codepage.
FUNCTIONS
- charset_encoding()
-
Returns the encoding name (usable with module Encode) based on the current codepage. For example,
cp1252
for iso-8859-1 (latin-1) orcp932
for Shift-JIS Japanese. Returns undef if the encoding cannot be identified. - codepage_to_iso($codepage)
-
Translate windows $codepage into ISO code. The $codepage is numeric or a hex string like '0x0304'.
- iso_locale( [$codepage] )
-
Returns the ISO string for the Microsoft codepage locale. Might return
undef
/false. By default, the actual codepage is used. - iso_to_codepage($iso)
-
Returns the numeric value of the codepage. The $iso may look like this:
xx_YY
. Then, first thexx_YY
is looked-up. If that does not exist,xx
is tried. - ms_codepage_id()
-
Returns the numeric language ID for the current codepage language. For example, the numeric value for
0x0409
foren-US
, and0x0411
forja
. Returns false if the codepage cannot be identified. - ms_install_codepage_id()
-
Returns the numeric language ID for the installed codepage language. This is like ms_codepage_id(), but refers to the codepage that was the default when Windows was first installed.
- ms_locale()
-
Returns the locale setting from the control panel.
SYNOPSYS
# Only usable on Windows
print codepage_to_iso(0x0413); # nl-NL
print iso_to_codepage('nl_NL'); # 1043
printf "%x", iso_to_codepage('nl_NL'); # 413
my $iso = iso_locale(ms_codepage_id());
my $iso = iso_locale; # same
print charset_encoding; # cp1252
print ms_codepage_id; # 1043
print ms_install_codepage_id; # 1043
print ms_locale; # Dutch (Netherlands)
SEE ALSO
This module is part of Log-Report-Lexicon distribution version 1.02, built on March 10, 2014. Website: http://perl.overmeer.net/log-report/
LICENSE
Copyrights 2007-2014 by [Mark Overmeer]. For other contributors see ChangeLog.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See http://www.perl.com/perl/misc/Artistic.html