如何使Perl 6成为Unicode数据的往返安全？

Question

对于Unicode而言,天真的Perl 6程序不是往返安全的.它似乎在内部使用标准化表格组合(NFC)作为Str类型:

$ perl -CO -E 'say "e\x{301}"' | perl6 -ne '.say' | perl -CI -ne 'printf "U+%04x\n", ord for split //'
U+00e9
U+000a

通过文档,我无法看到任何关于这种行为,我发现它非常令人震惊.我不敢相信你必须回到字节级别来往返文本:

$ perl -CO -E 'say "e\x{301}"' | perl6 -e 'while (my $byte = $*IN.read(1)) { $*OUT.write($byte) }' | perl -CI -ne 'printf "U+%04x\n", ord for split //'
U+0065
U+0301
U+000a

是否所有文本文件都必须在NFC中才能安全地使用Perl 6进行往返？如果该文件应该在NFD中怎么办？我必须在这里遗漏一些东西.我不敢相信这是故意的行为.

Answer 1

答案似乎是使用Uni类型(NFD,NFC等的基类),但它现在并没有真正做到这一点,并且没有好的方法将文件转换为Uni字符串.因此,在将来某个未命名的点之前,除非将其视为字节,否则不能往返非规范化文件.