";
print "idsdb"; if(exists($idsdb{$query})){ $_ = $idsdb{$query}; s/([^.]*)/$1<\/a>/g; print "$_ ";
if($idsdb{$query} =~ /^u2ff0\./){
print "簡易調整(test)";
}
}else{
print "no resutls ";
}
print " | ";
print "partsdb"; if(exists($partsdb{$query})){ print "no resutls ";
print "";
}
print " |
";
print "aliasdb"; if(exists($aliasdb{$query})){ $_ = $aliasdb{$query}; s/([^.]*)/$1<\/a>/g; print "$_ ";
print "";
}else{
print "no resutls ";
print "";
}
print " |
|;
$i = $i + 3;
}
elsif(m/^⿱/){
print qq|
|;
$i = $i + 3;
}
elsif(m/^⿲/){
print qq|
|;
$i = $i + 3;
}
elsif(m/^⿳/){
print qq|
|;
$i = $i + 3;
}
elsif(m/^⿴/){
print qq|
|;
$i = $i + 3;
}
elsif(m/^⿵/){
print qq|
|;
$i = $i + 3;
}
elsif(m/^⿶/){
print qq|
|;
$i = $i + 3;
}
elsif(m/^⿷/){
print qq|
|;
$i = $i + 3;
}
elsif(m/^⿸/){
print qq|
|;
$i = $i + 3;
}
elsif(m/^⿹/){
print qq|
|;
$i = $i + 3;
}
elsif(m/^⿺/){
print qq|
|;
$i = $i + 3;
}
elsif(m/^⿻/){
print qq|
|;
$i = $i + 3;
}
else{
#use Encode 'from_to';
return substr(@_[0], $i, 3);
#print "{".from_to(substr(@_[0], $i, 3), 'utf-8', 'UTF-32')."}";
$i = $i + 3;
}
}
}
###############################################################################
sub properucs2kageucs{
my $ax = @_[0];
$ax =~ s/\'/s/; # replace single quote for Daikanwa No.
$ax =~ s/\"/d/; # replace double quote for Daikanwa No.
$ax =~ s/U\+/u/;
$ax =~ s/U\-0*/u/;
return lc($ax);
}
sub utf8er2kageer{
my $result, $first, $semicolon, $ax;
$result = "";
for(my $pointer = 0; $pointer < length(@_[0]);){
$first = unpack("C", substr(@_[0], $pointer, 1));
if(0x00 <= $first && $first <= 0x7f){ # 1 byte
# the top letter is must be "&"
if($first == 0x26){
$semicolon = index(@_[0], ';', $pointer);
$ax = substr(@_[0], $pointer + 1, $semicolon - $pointer - 1).".";
$ax =~ s/^I-//; # remove "I-"
$ax =~ s/\'/s/; # replace single quote for Daikanwa No.
$ax =~ s/\"/d/; # replace double quote for Daikanwa No.
$result .= $ax;
$pointer = $semicolon + 1;
}
else{
$pointer += 1;
}
}
elsif(0xc0 <= $first && $first <= 0xdf){ # 2 bytes
# may not be exist
$pointer += 2;
}
elsif(0xe0 <= $first && $first <= 0xef){ # 3 bytes
$ax = (unpack("C", substr(@_[0], $pointer, 1)) & 0x0f) << 12;
$ax += (unpack("C", substr(@_[0], $pointer + 1, 1)) & 0x3f) << 6;
$ax += (unpack("C", substr(@_[0], $pointer + 2, 1)) & 0x3f);
$result .= sprintf("u%x.", $ax);
$pointer += 3;
}
elsif(0xf0 <= $first && $first <= 0xf7){ # 4 bytes
$ax = (unpack("C", substr(@_[0], $pointer, 1)) & 0x07) << 18;
$ax += (unpack("C", substr(@_[0], $pointer + 1, 1)) & 0x3f) << 12;
$ax += (unpack("C", substr(@_[0], $pointer + 2, 1)) & 0x3f) << 6;
$ax += (unpack("C", substr(@_[0], $pointer + 3, 1)) & 0x3f);
$result .= sprintf("u%x.", $ax);
$pointer += 4;
}
elsif(0xf8 <= $first && $first <= 0xfb){ # 5 bytes
$ax = (unpack("C", substr(@_[0], $pointer, 1)) & 0x03) << 24;
$ax += (unpack("C", substr(@_[0], $pointer + 1, 1)) & 0x3f) << 18;
$ax += (unpack("C", substr(@_[0], $pointer + 2, 1)) & 0x3f) << 12;
$ax += (unpack("C", substr(@_[0], $pointer + 3, 1)) & 0x3f) << 6;
$ax += (unpack("C", substr(@_[0], $pointer + 4, 1)) & 0x3f);
$result .= sprintf("u%x.", $ax);
$pointer += 5;
}
elsif(0xfc <= $first && $first <= 0xfd){ # 6 bytes
$ax = (unpack("C", substr(@_[0], $pointer, 1)) & 0x01) << 30;
$ax += (unpack("C", substr(@_[0], $pointer + 1, 1)) & 0x3f) << 24;
$ax += (unpack("C", substr(@_[0], $pointer + 2, 1)) & 0x3f) << 18;
$ax += (unpack("C", substr(@_[0], $pointer + 3, 1)) & 0x3f) << 12;
$ax += (unpack("C", substr(@_[0], $pointer + 4, 1)) & 0x3f) << 6;
$ax += (unpack("C", substr(@_[0], $pointer + 5, 1)) & 0x3f);
$result .= sprintf("u%x.", $ax);
$pointer += 6;
}
}
chop($result); # remove the last period char.
return lc($result);
}