NameAlias.p6

my $folder = "UNIDATA";
#my $names = slurp "$folder/NameAliases.txt";
my %points;
# NameAliases.txt
# 0 Codepoint (Hex)
# 1 NameAlias
# 2 NameAlias type
# sub path($cp, +@a) { say "\@.perl: @a.perl()"; @a.reduce({ $^a{$^b}:exists ?? $^a{$^b} !! $^a{$^b} = {} }) };
sub read-file ( $property, $file ) {
    my $file-txt = slurp "$folder/$file.txt";
    for $file-txt.lines {
        next if .starts-with('#') or .match(/^\s*$/);
        my @parts = .split(';');
        my %hash;
        %hash{@parts[0]}{$property}{@parts[1]}<type> = @parts[2];
        apply-to-cp(%hash)
    }
}
read-file("NameAlias", "NameAliases" );
sub apply-to-cp ($hashy) {
    for $hashy.kv -> $key, $value {
        my $cp = $key.parse-base(16);
        say $hashy if $cp == 0;
        %points{$cp} = $value;
    }
}
say %points{0}.perl;