如何获取已知 Unicode 字符名称的列表

Question

如何从 perl 获取所有已知名称的列表，这些名称可以在 "\N{...}" 中使用？ 无法弄清楚与Unicode::UCD 或其他核心模块有关。

Answer 1

Unicode::UCD 和一个循环：

#!/usr/bin/env perl
use strict;
use warnings;
use Unicode::UCD qw/charinfo/;
use feature qw/say/;

say "Character names defined by Unicode ", Unicode::UCD::UnicodeVersion();
for (my $cp = 0; $cp <= 0x10FFFF; $cp += 1) {
    my $info = charinfo($cp);
    say $info->{"name"} if defined $info && $info->{"name"} ne "";
}