in reply to How to sanely handle unicode in perl?

Here's a simpler version of choroba's idea:
#!/usr/bin/perl -l use strict; use warnings; open my $in, "-|:encoding(UTF-8)", "echo \xc3\xb6" or die $!; my $line = <$in>; chomp($line); open STDOUT, ">-" or die $!; binmode STDOUT, ":encoding(UTF-8)"; print STDOUT "I read a line, that is ", length($line), " chars long.\n +"; print STDOUT "That line in ascii is: $line"; close($in); close(STDOUT); exit 0;
Updated: Fixed mistake at line 11. Thanks, choroba!

Replies are listed 'Best First'.
Re^2: How to sanely handle unicode in perl?
by choroba (Archbishop) on Mar 21, 2015 at 18:12 UTC
    Line 11 makes no sense. When you add the failure handling, you'll know why:
    open STDOUT, ":encoding(UTF-8)" or die $!;
    لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
      Thanks for noticing. Of course, it makes no sense. My editor went a wee bit wonky on me. My bad---That's what I get for not looking at it again afterwards:).