Re: How to sanely handle unicode in perl?

If "the right thing" is to accept UTF-8 whatever the locale is, don't count on locale. Modify line 6 to

use open 'utf8', ':std';
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on Re: How to sanely handle unicode in perl? Download Code

Replies are listed 'Best First'.
Re^2: How to sanely handle unicode in perl? by Sec (Monk) on Mar 20, 2015 at 16:38 UTC
That does not work. It has the same effect as commenting out the "use open" line. Try it in an UTF-8 terminal with LC_CTYPE set properly to utf-8. The print to STDOUT corrupts the character. `karoshi:~>LC_CTYPE=de_DE.UTF-8 ./u8demo.pl I read a line, that is 1 chars long. That line is: � That line in ascii is: o` [download]	[reply] [d/l]
Re^3: How to sanely handle unicode in perl? by Your Mother (Archbishop) on Mar 20, 2015 at 16:43 UTC
You took the locale bit out, right? Both examples from choroba and me/tchrist work in my UTF-8 terminal. moo@cow~>echo $LC_CTYPE utf-8 moo@cow~>perl ~/pm-eg I read a line, that is 1 chars long. That line is: ö That line in ascii is: o Update: this works the same for me as well: `setenv LC_CTYPE de_DE.UTF-8`	[reply] [d/l]
Re^4: How to sanely handle unicode in perl? by Sec (Monk) on Mar 20, 2015 at 17:12 UTC
As said elsewhere, I've not found a way to make it work in both UTF-8 and ISO8859-1 terminals. Not looking at the locale charset to see what terminal you are on does not sound like it'll work.	[reply]