use Unicode::UCD qw/charblock/;
binmode STDOUT, ":utf8";
my $range = charblock(q{Cyrillic});
for ( $range->[0][0] .. $range->[0][1] ) {
print "$_: ", chr($_), "\n";
}
| [reply]
[d/l]
[select] |
If you want to do it for all codepoints supported/known by the current perl, this is quite efficient:
#!/usr/bin/perl
use strict;
use warnings;
binmode STDOUT, ":utf8";
sub Names ()
{
do "unicore/Name.pl";
} # Names
my (%name, %cp, $n);
for (split m/\n/ => Names ()) {
s/\s+$//;
my ($cp, $cp2, $name) = split m/\t/, $_, 3;
$name =~ m/a-z/ and next; # Non-character
($cp, $cp2) = map { hex "0$_" } ($cp, $cp2);
$name{$cp} = $name;
$cp{$name} //= $cp;
}
my @codepoints = sort { $a <=> $b } keys %name;
my $ncp = @codepoints;
print "Testing $ncp codepoints\n";
foreach my $cp (@codepoints) {
my $chr = chr $cp; # int-2-char conversion
$chr =~ m/\p{Cyrillic}/ or next;
printf "U+%04X %s\t%s\n", $cp, $chr, $name{$cp};
}
Enjoy, Have FUN! H.Merijn
| [reply] |
Along the same lines suggested by cbu, I found a very nice little snippet posted to the perl-unicode mail list, and included it in this reply to an older SoPW node.
I think you can see a nice way to adapt that little command-line tool into a module that uses perl's grep function in a suitable way to give you the sort of flexibility you want. In effect, a one-line idiom like this:
@names = grep /cyrillic/i, split /^/, do 'unicore/Name.pl';
is sort of what you're after, I think. Just put a variable into the regex for the grep, and you can fetch subsets based on all sorts of patterns in unicode character names. (But if you're going to do this sort of grep repeatedly in one script, you probably want to run unicore/Name.pl just once and keep all it's output in an array.) | [reply]
[d/l]
[select] |