# categorise by unicode types and writing script
$info->{class}->{$_}++ for $info->{category};
- $info->{class}->{"u-$_"}++ for $info->{script} || ();
+ $info->{class}->{$_}++ for $info->{script} || ();
# add custom categories for certain blocks
$info->{class}->{Xa}++ if $info->{block} eq 'Basic Latin';
}
# output perl code of hash
+say 'use utf8;';
say '+{';
for my $cp (sort keys %info) {
$info{$cp}->{classstr} = join(' ', sort keys %{ $info{$cp}->{class} });