aboutsummaryrefslogblamecommitdiffstats
path: root/libwc/map/mk_cp950_txt.pl
blob: 536a327fdb6cd7c5a8187b81330c4b7c409f8f51 (plain) (tree)
1
2
3
4
5
6
7
8
9
10









                                                                    
# perl mk_cp950_txt.pl \
# www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP950.TXT \
# > private/cp950.txt

while(<>) {
	s/^0x([0-9A-F]{4})\s+0x([0-9A-F]{4})\s+#// || next;
	($c, $u) = ($1, $2);
	print "$c\t$u\n";
}