Wide character in print

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

I am trying to write a Perl script using the "utf8" . In my file have data

data.txt

î ă

☺

Ți ța

întâ să

    use strict;
    use warnings;
   
    my $filename = 'data.txt';
    open(my $fh, '<:encoding(UTF-8)', $filename) 
    or die "Could not open file '$filename' $!";
     
    while (my $row = <$fh>) {
    chomp $row;
    print "$row\n";

    }
[download]

I expect to get

î ă

☺

Ți ța

întâ să

Comment on Wide character in print Download Code

Replies are listed 'Best First'.
Re: Wide character in print by choroba (Cardinal) on Jan 22, 2014 at 10:27 UTC
print without a file handle prints to STDOUT. You have to turn on the UTF-8 encoding for the STDOUT handle, as well as you correctly did for the input: `binmode STDOUT, ':encoding(UTF-8)';` [download] Or, use open: `use open OUT => ':encoding(UTF-8)', ':std';` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l] [select]
Re^2: Wide character in print by Jim (Curate) on Jan 26, 2014 at 00:11 UTC
Alternatively, PetreAdi can set the character encoding of both input and output to UTF-8 in one fell swoop like this: `use strict; use warnings; use open qw( :encoding(UTF-8) :std ); use autodie qw( open close ); my $filename = 'data.txt'; open my $fh, '<', $filename; while (my $row = <$fh>) { print $row; } close $fh; exit 0;` [download] I like to use autodie, too. Jim	[reply] [d/l]