projects
/
profile
/
ivi
/
w3m.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Intial commit
[profile/ivi/w3m.git]
/
libwc
/
map
/
mk_hkscs_p2_txt.pl
1
2
# gunzip -c www.unicode.org/Public/BETA/Unicode3.2/Unihan-3.2.0d2.txt.gz \
3
# | perl mk_hkscs_p2_txt.pl \
4
# | sort > private/hkscs_p2.txt
5
6
while(<>) {
7
/^U\+([0-9A-F]{4,5})\s+kHKSCS\s+([0-9A-F]{4})/ || next;
8
($c, $u) = ($2, $1);
9
print "$c\t$u\n";
10
}