use warnings;
use utf8;
use re '/msx';
+use open IO => ':encoding(utf-8)', ':std';
use JSON ();
use Data::Dump 'pp';
-our $VERSION = '1.00';
+our $VERSION = '1.01';
my $symname = eval {
open my $keysymh, '<', 'data/keysymdef.json' or die $!;
#$res{$pos}[$shift] = $symname->{$chr} // $chr; # geochar
}
}
-say pp \%res;
+say pp(\%res) =~ s/(?<=") \\x \{? ([0-9A-F]{2,6}) \}?/chr hex $1/reg;
__END__