my $di = do $_ or die "Error reading digraphs file $_: ", $@ || $!;
while (my ($mnem, $cp) = each %$di) {
length $mnem == 2 or next; # limit to digraphs
my $di = do $_ or die "Error reading digraphs file $_: ", $@ || $!;
while (my ($mnem, $cp) = each %$di) {
length $mnem == 2 or next; # limit to digraphs
# add custom categories for certain blocks
$info->{class}->{Xa}++ if $info->{block} eq 'Basic Latin';
# add custom categories for certain blocks
$info->{class}->{Xa}++ if $info->{block} eq 'Basic Latin';
say '+{';
for my $cp (sort keys %info) {
$info{$cp}->{classstr} = join(' ', sort keys %{ $info{$cp}->{class} });
say '+{';
for my $cp (sort keys %info) {
$info{$cp}->{classstr} = join(' ', sort keys %{ $info{$cp}->{class} });