Lost in utf8 (still..)

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

On an utf8 linux, I execute :

#!/usr/bin/perl
require 5.0022;
use strict;
use warnings;
use utf8;
open STDERR,">:utf8","perl.log";
print STDERR "******************* lost.pl (&é'-è_çà)  \n";
binmode(STDERR, ":utf8");
print STDERR "******************* lost.pl (&é'-è_çà)  \n";
[download]

and I "cat perl.log" :

******************* lost.pl (&?'-?_??)
******************* lost.pl (&é'-è_çà)
[download]

I do not understand why the 2 lines of result are different.
Thank you, o brave monks to show me the light.
PC

Comment on Lost in utf8 (still..) Select or Download Code

Replies are listed 'Best First'.
Re: Lost in utf8 (still..) by choroba (Cardinal) on Jun 09, 2016 at 10:45 UTC
It seems to work if you replace STDERR with LOG (and open it before) or a lexical filehandle. I can't find anything related to STDERR in the documentation related to this, only maybe > To (re)open "STDOUT" or "STDERR" as an in-memory file, close it first in open, but there's no in-memory file here. BTW, there hasn't been any Perl 5.2.200 (check perlhist): `Larry 5.002 1996-Feb-29 Prototypes. Charles 5.002_01 1996-Mar-25 5.003 1996-Jun-25 Security release.` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^2: Lost in utf8 (still..) by pcouderc (Monk) on Jun 09, 2016 at 11:39 UTC
Well, thank you. What is sure is that if close STDERR before the open the 2 result lines are identical ! So if I do not close STDERR, the open is well done but, it seems, not in UTF8.	[reply]
Re^3: Lost in utf8 (still..) by andal (Hermit) on Jun 10, 2016 at 07:49 UTC
You may try to put it as bug report. It is certainly not logical to do the reopening of STDERR without respect to the mode argument in this reopening.	[reply]
Re^4: Lost in utf8 (still..) by choroba (Cardinal) on Jun 10, 2016 at 08:54 UTC


Perl-Sensitive Sunglasses
	PerlMonks