Perl 6 和打印列

Question

Perl 6 是否有与 Unicode::GCString 等价的东西？的columns方法？

Perl 5 示例:

#!/usr/bin/env perl
use warnings;
use strict;
use 5.10.0;
use utf8;
use open qw( :std :utf8 );
use Unicode::GCString;

my $s = '合'; # U+5408

say length $s;      # 1

my $gcs = Unicode::GCString->new( $s );
say $gcs->columns;  # 2

Answer 1

Perl6 具有内置的 Unicode 支持，具有原生 Uni 和 NFC/NFD/NFKC/NFKD 规范化类型。

我隐约明白的是，Unicode::GCString::columns 方法决定了东亚语言的换行支持。
合由彼此重叠的 2 个“音节”(他们称之为“字素簇”)组成，因此是 2 列。

话虽如此，perl6 内部(在 MoarVM 级别)可以访问存储换行属性的 unicode 数据库，但据我所知，目前没有模块，如 Unicode::UCD 可用于使 East_Asian_Width 属性可用于类似 a Unicode::GCString。

另一方面，将 Unicode::LineBreak 转换为 perl6 看起来很容易，通过 NativeCall 访问 sombok 库。