Encode::HanExtra

update Encode::HanExtra

split.pl
open(CCCII, "/home/laxendion/tools/UNI_CI_V3.txt");
open(NEW,"> /home/laxendion/tools/UNI.txt");

foreach (){
($Uni,$Cii,$other) = split (/,/,$_);
$Uni =~ /(\d)(\w)(\w)(\w)(\w)/g;
if ($1 == 0){
$Uni = "";
$Cii =~ s/(\w\w)(\w\w)(\w\w)/\\x$1\\x$2\\x$3/g;
$other = "|0";
print NEW "$Uni $Cii $other\n";
}
elsif ($1 == 2){
$Uni = "";
$Cii =~ s/(\w\w)(\w\w)(\w\w)/\\x$1\\x$2\\x$3/g;
$other = "|0";
print NEW "$Uni $Cii $other\n";
}
}
close(CCCII);
close(NEW);

send to 唐鳳
cccii.ucm
http://kohataiwan.googlegroups.com/web/cccii.ucm