我该如何获取所有已知名称列表,以便在 Perl 中使用 "\N{...}"
?无法确定如何使用 Unicode::UCD
或其他核心模块。
我该如何获取所有已知名称列表,以便在 Perl 中使用 "\N{...}"
?无法确定如何使用 Unicode::UCD
或其他核心模块。
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 "";
}
charnames
模块执行类似的工作。 - brian d foy