Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Localize Wx application - encoding problem

by ph0enix (Friar)
on Aug 01, 2007 at 15:55 UTC ( [id://630096]=perlquestion: print w/replies, xml ) Need Help??

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

Dear PerlMonks,
I'm writing application using wxWidgets on MS Windows and have problem with localization. My locale initialization code is

undef $locale; $locale = Wx::Locale->new('Czech', 'cz','cz'); $locale->AddCatalogLookupPathPrefix(filename('data/locale')); $locale->AddCatalog('evidence');

The file data/locale/evidence.po contain UTF-8 encoded translated texts and UTF-8 is correctly specified as charset in Content-Type:

msgid "" msgstr "" "Project-Id-Version: evidence VERSION\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2007-07-26 22:49+0200\n" "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n" "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n" "Language-Team: LANGUAGE <>\n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n"

but almost all accented letters are malformed. It looks like internal processing somewhere in (or behind) Wx::Locale convert all texts to Windows encoding and set the utf8 flag on...

Can somebody help me? I don't know what is going wrong. Maybe I'm using Wx::Locale in completely wrong way?

As a workaround I've wrote a wrapper routine, but it seems to me that there can be also bug in Encode module, because some chars are not converted properly (e.g. small letter c with caron - which I'm trying to fix with regexp later). Wrapper routine code is

sub _T { my $gettext; my $octets; my $result; $gettext = gettext(@_); $octets = Encode::encode(Wx::Locale::GetSystemEncodingName(), $gettex +t); $result = Encode::decode_utf8($octets, Encode::FB_PERLQQ); # fix czech small letter c< $result =~ s/\\xC4\?/\x{10d}/g; return $result; }

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://630096]
Approved by mr_mischief
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (2)
As of 2024-06-20 03:41 GMT
Find Nodes?
    Voting Booth?

    No recent polls found

    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.