libwc/map/mk_cp950_txt.pl

   1
   2 # perl mk_cp950_txt.pl \
   3 # www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP950.TXT \
   4 # > private/cp950.txt
   5
   6 while(<>) {
   7         s/^0x([0-9A-F]{4})\s+0x([0-9A-F]{4})\s+#// || next;
   8         ($c, $u) = ($1, $2);
   9         print "$c\t$u\n";
  10 }