Re: Issue of formatting columns of data

You need to

Save the source file as UTF-8.
Tell Perl that it is UTF-8.
Tell Perl to encode the output as UTF-8.

#! /usr/bin/perl
use warnings;
use strict;
use utf8;
use open IO => ':encoding(UTF-8)', ':std';

print sprintf ("%-6s", "°C").   "|\n";
print sprintf ("%-6s", "Deg C")."|\n";
[download]

Output (in a UTF-8 terminal):

°C    |
Deg C |

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

Comment on Re: Issue of formatting columns of data Select or Download Code

Replies are listed 'Best First'.
Re^2: Issue of formatting columns of data by Timka (Acolyte) on Sep 26, 2024 at 03:44 UTC
Any of these would work: binmode STDOUT, "encoding(UTF-8)" binmode STDOUT, ":utf8" use open qw(:std :utf8); perl -C your_script	[reply]
Re^3: Issue of formatting columns of data by Tux (Canon) on Sep 26, 2024 at 07:58 UTC
please do NOT promote `binmode ..., ":utf8";`, as that is unsafe The `:encoding(utf-8)"` is missing a `:` `perl -C` is for output only (I'd use `-COE` for clarity), not for the source code. UTF-8 in source code requires `perl -COE -Mutf8 -wE'say "°C"'` Enjoy, Have FUN! H.Merijn	[reply] [d/l] [select]