Re: Simplest Possible Way To Disable Unicode

in reply to Simplest Possible Way To Disable Unicode

$ perl -e " print chr(999) "
Wide character in print at -e line 1.
&#9575;º
$ perl -e " binmode STDOUT; print chr(999) "
Wide character in print at -e line 1.
&#9575;º
$ perl -Mdiagnostics -e " print chr(999) "
Wide character in print at -e line 1 (#1)
    (S utf8) Perl met a wide character (>255) when it wasn't expecting
    one.  This warning is by default on for I/O (like print).  The eas
+iest
    way to quiet this warning is simply to add the :utf8 layer to the
    output, e.g. binmode STDOUT, ':utf8'.  Another way to turn off the
    warning is to add no warnings 'utf8'; but that is often closer to
    cheating.  In general, you are supposed to explicitly mark the
    filehandle with an encoding, see open and perlfunc/binmode.

&#9575;º
[download]

So to silence the warning, use

$ perl -e " no warnings q[utf8]; print chr(999) "
&#9575;º
[download]

using bytes would also silence it, but would change the semantics

$ perl -e " use bytes;  print chr(999) "
&#964;
[download]

perluniintro, perlunicode

Comment on Re: Simplest Possible Way To Disable Unicode Select or Download Code

Replies are listed 'Best First'.
Re^2: Simplest Possible Way To Disable Unicode by ikegami (Patriarch) on May 24, 2011 at 00:37 UTC
Simply silencing the warning is not the solution. `print chr(200); print chr(1000);` [download] will continue to be different than `print chr(200) . chr(1000);` [download] as shown here: `>perl -we"no warnings qw( utf8 ); print chr(200); print chr(1000);" \| +perl -nE"say length;" 3 >perl -we"no warnings qw( utf8 ); print chr(200) . chr(1000);" \| perl +-nE"say length;" 4` [download] Update: Mistakenly used 100 instead of 200 originally.	[reply] [d/l] [select]
Re^3: Simplest Possible Way To Disable Unicode by Anonymous Monk on May 24, 2011 at 00:59 UTC
Simply silencing the warning is not the solution. So what is the solution?	[reply]
Re^4: Simplest Possible Way To Disable Unicode by ikegami (Patriarch) on May 24, 2011 at 01:00 UTC
See my reply to the OP.	[reply]
Re^5: Simplest Possible Way To Disable Unicode by Anonymous Monk on May 24, 2011 at 01:05 UTC
Re^6: Simplest Possible Way To Disable Unicode by ikegami (Patriarch) on May 24, 2011 at 01:31 UTC
Re^2: Simplest Possible Way To Disable Unicode by ikegami (Patriarch) on May 24, 2011 at 01:21 UTC
I don't see when `use bytes;` would possibly be useful to solve this issue. Instead of `print` warning and returning the possibly useful UTF-8 encoding of the input, it simply destroys the high bits of the bad data. `$ perl -we'use bytes; $_ = chr(1000); print;' \| od -t x1 0000000 e8 0000001 $ perl -we'use bytes; $_ = chr(232); print;' \| od -t x1 0000000 e8 0000001` [download] Whereas the original situation had a chance of providing something useful, this isn't the case with `use bytes;`. It possibly make things worse and hides the error.	[reply] [d/l] [select]
Re^3: Simplest Possible Way To Disable Unicode by tchrist (Pilgrim) on May 24, 2011 at 18:23 UTC
I don't see when `use bytes;` would possibly be useful to solve this issue. Agreed. It’s not even clear to me what sort of problem it would solve. I’ve never been fond of `od` output myself. And you shouldn’t need it, either. This tells the story clearly enough: `% perl -wle 'print ord do { use bytes; chr(1000) }' 232 % perl -wle 'print ord do { use bytes; chr(232) }' 232 % perl -wle 'print ord do { no bytes; chr(1000) }' 1000` [download]	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom