Re: Perl, Gtk2 and locale — a bit of a mess

Okay, a little update. Just what is going on in Perl’s mind here?

$ perl -E 'use POSIX qw(setlocale LC_NUMERIC); say 3.14; setlocale(LC_
+NUMERIC, ""); say 3.14; setlocale(LC_NUMERIC, "C"); say 3.14; setloca
+le(LC_NUMERIC, ""); say 3.14; say 3.14 . "";'
3.14
3,14
3.14
3,14
3.14
[download]

Switching back and forth seems to work. When the environment locale is loaded, we get a comma, when the C locale is loaded, we get a period. Excellent.

Except for the last two. If you concat anything (could have done it with print 3.14; print "\n"; print 3.14 . "\n"; instead, for the same effect) to the float (turning it into a string much like how you turn it into a string with the print or the say directive, it won’t follow the locale rules. I’d been battling the exact opposite until now!

And when we also use Gtk which will call setlocale on the C level:

~$ perl -E 'use Gtk2 -init; use POSIX qw(setlocale LC_NUMERIC); say 3.
+14; setlocale(LC_NUMERIC, ""); say 3.14; setlocale(LC_NUMERIC, "C"); 
+say 3.14; setlocale(LC_NUMERIC, ""); say 3.14; say 3.14 . ""; ' 
3,14
3,14
3.14
3,14
3,14
[download]

The first turns into a comma, that’s good, Gtk2 set the locale to Hungarian. The second remains a comma, as expected. The third becomes a period, because of C locale. Fourth is a comma, rightfully, because of the environment locale. And the last one behaves as it should now, remaining a comma, appropriate for the environment locale being used.

Comment on Re: Perl, Gtk2 and locale — a bit of a mess Select or Download Code

Replies are listed 'Best First'.
Re^2: Perl, Gtk2 and locale — a bit of a mess by Ralesk (Pilgrim) on Jul 12, 2013 at 12:16 UTC
Once again IRC help, so for the sake of completeness I’m answering myself: the reason for the awkward difference is compile time optimisation. Where, in the first case, that last concatenation & stringification still happened during initial unset locale. Note how the last two prints work as expected if one replaces the constant with a subroutine call. `~$ perl -E 'sub x { 3.14 }; use POSIX qw(setlocale LC_NUMERIC); say x; + setlocale(LC_NUMERIC, ""); say x; setlocale(LC_NUMERIC, "C"); say x; + setlocale(LC_NUMERIC, ""); say x; say x . ""; ' 3.14 3,14 3.14 3,14 3,14` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Perl, Gtk2 and locale — a bit of a mess
by Ralesk (Pilgrim) on Jul 12, 2013 at 12:16 UTC

Once again IRC help, so for the sake of completeness I’m answering myself: the reason for the awkward difference is compile time optimisation. Where, in the first case, that last concatenation & stringification still happened during initial unset locale.

Note how the last two prints work as expected if one replaces the constant with a subroutine call.

~$ perl -E 'sub x { 3.14 }; use POSIX qw(setlocale LC_NUMERIC); say x;
+ setlocale(LC_NUMERIC, ""); say x; setlocale(LC_NUMERIC, "C"); say x;
+ setlocale(LC_NUMERIC, ""); say x; say x . ""; ' 
3.14
3,14
3.14
3,14
3,14
[download]

[reply]
[d/l]