perl - 有没有办法让 printf/sprintf 正确处理字符组合？

Question

组合字符在 printf 中似乎算作整个字符和 sprintf的计算:

[    é]
[   é]

上面的文本是由以下代码创建的:

#!/usr/bin/perl

use strict;
use warnings;

binmode STDOUT, ":utf8";

for my $s ("\x{e9}", "e\x{301}") {
        printf "[%5s]\n", $s; 
}

我希望代码打印:

[    é]
[    é]

我在函数描述中没有看到任何关于 Unicode 的讨论，更不用说组合字符了。是 printf和 sprintf面对Unicode没用？这只是 Perl 5.20.1 中可以修复的错误吗？有没有人写的替代品？

Answer 1

看起来答案是使用 Unicode::GCString

#!/usr/bin/perl

use strict;
use warnings;

use Unicode::GCString;

binmode STDOUT, ":utf8";

for my $s ("\x{e9}", "e\x{301}", "e\x{301}\x{302}") {
        printf "[%s]\n", pad($s, 5);
}

sub pad {
        my ($s, $length) = @_;
        my $gcs = Unicode::GCString->new($s);
        return((" " x ($length - $gcs->columns)) . $s);
}