http://qs321.pair.com?node_id=11128194


in reply to 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]

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]
      > 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.

In Section Seekers of Perl Wisdom