Re: Forcing UTF-8 output on STDOUT

Do you really want to send the output to a file named STDOUT?

If not, use binmode instead of open:

#!/usr/bin/perl
use utf8;
use strict;
use warnings;
binmode *STDOUT, ':utf8';
print "åäöfoo\n";
[download]

Using :encoding(UTF-8) instead of :utf8 would turn on some useful checking, too.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re: Forcing UTF-8 output on STDOUT Select or Download Code

Replies are listed 'Best First'.
Re^2: Forcing UTF-8 output on STDOUT by ikegami (Patriarch) on Feb 11, 2021 at 06:21 UTC
The following would also do the trick: `use open ':std', ':encoding(UTF-8)';` [download] It adds the encoding layer to STDIN, STDOUT and STDERR, it does so at compile time, and it sets the default encoding for `open` in scope. Seeking work! You can reach me at ikegami@adaelis.com	[reply] [d/l] [select]
Re^2: Forcing UTF-8 output on STDOUT by mldvx4 (Friar) on Feb 12, 2021 at 11:27 UTC
Thanks. I had experimented with binmode in different ways, but your example does the job!	[reply]
Re^2: Forcing UTF-8 output on STDOUT by mldvx4 (Friar) on Feb 11, 2021 at 17:14 UTC
Thanks. "Do you really want to send the output to a file named STDOUT?" Not really. What I was trying to do is have a medium-sized script be able to alternate between writing output to a file or to stdout itself, depending on an option. `. . . if (defined($opt{'o'})) { $output = $opt{'o'}; $output =~ s/[\0-\x1f]//g; if ($output =~ /^([-\/\w\.]+)$/) { $output = $1; } else { die("Bad path or file name: '$output'\n"); } } else { $output = '/dev/stdout'; } . . . open(my $out, $mode, $output) or die("Could not open '$output' for writing: $!\n");` [download] That way I can use the same print statements for either purpose. I presume there is a better way for all that, however.	[reply] [d/l]
Re^3: Forcing UTF-8 output on STDOUT by choroba (Cardinal) on Feb 11, 2021 at 17:16 UTC
> alternate between writing output to a file or to stdout itself select? `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.


Your skill will accomplish what the force of many cannot
	PerlMonks