3 # $Id: chisereg.pl,v 1.2 2003-10-08 13:30:29 moro Exp $
9 my ($key, $DB_HOME, $feature_name) = @ARGV;
10 my $target = "$DB_HOME/system-char-id/$feature_name";
11 my $value = &getvalue($target, "?$key");
13 #print STDERR "value: $value\n"; # for debug
15 for $key (&getkeys($target, $value)) {
16 my $ucs_value = &getvalue("$DB_HOME/system-char-id/=ucs", $key);
18 $key = sprintf "\\x\{%x\}", $ucs_value;
28 #print STDERR "no values\n"; # for debug
33 my ($chise_dbname, $key) = @_;
35 tie (my %h, "DB_File", $chise_dbname, O_RDWR)
36 or die "Cannot open file $chise_dbname: $!\n";
44 my ($chise_dbname, $value) = @_;
45 tie (my %h, "DB_File", $chise_dbname, O_RDWR, , $DB_BTREE)
46 or die "Cannot open file $chise_dbname: $!\n";
48 for my $key (keys %h) {
49 next unless (exists $h{$key});
50 push @keys, $key if ($h{$key} eq $value);