有没有办法解决 Perl Tk 中代码点过高的问题？

Question

下面的代码演示了我的问题。运行它会给出错误消息：“UCS-2LE：代码点“\x{20541}”在 C:/Perl/site/lib/Tk/Widget.pm 第 205 行太高。在 E:\test。 pl 线 9"。

我的 Tk 版本是 804.028，我在 WinXP（简体中文版）上运行 ActivePerl 10.0.0。

有谁知道是否有办法解决它？一如既往地感谢:)

use strict;use warnings;
use utf8;
use Tk;

my $mw = MainWindow->new;
my $text = "
              

Answer 1

Tk 目前不支持基本多语言平面之外的 Unicode 字符（即，最多 U+00FFFF）。虽然有计划解决这个问题，但它需要更改 Tk 代码中的很多内容（因为必须完成新的字符串管理层才能使事情变得高效，而且还需要真正解决规范化问题）所以它的工作并没有那么匆忙。我确信，如果有人愿意提供帮助来解决这个问题，我们将受到欢迎。

但是，如果您认为您的角色不应该位于 BMP 之外（抱歉，我无法从您的问题中看出），那么您的代码中就会出现其他一些编码问题。诊断此问题的一种方法是从 Unicode 图表 中获取值，因为它们非常完整且明确然后我们就可以确保我们正在谈论的是同一件事。