Perl Unicode glitch
- by RedGrittyBrick
In this output, why am I getting extra newlines between lines b&c and d&e?
a: ....v....1....v... (a)
b: 'Budejovický Budvar' length 18 (b)
c: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 (c)
d: B u d e j o v i c k ý B u d v a r (d)
e: 42 75 64 11b 6a 6f 76 69 63 6b fd 20 42 75 64 76 61 72 (e)
from this program
#!perl
use strict;
use warnings;
binmode (STDOUT, "encoding(UTF-8)"); # so no "Wide characater in print" warning
print "\n";
my $r = "Bud\N{U+011B}jovick\N{U+00FD} Budvar";
print "a: ....v....1....v... (a)\n";
print "b: '$r' length ", length($r)," (b)\n";
print "c:";
printf "%4d",$_ for (1..18);
print " (c)\n";
print "d: ";
print join(" ", split("", $r));
print " (d)\n";
print "e: ";
printf "%*v3x", " ", $r;
print " (e)\n";
