Added decode_char method.

diff --git a/tools/chiseperl.pl b/tools/chiseperl.pl
index 273faa7..4ba8911 100755 (executable)
--- a/tools/chiseperl.pl
+++ b/tools/chiseperl.pl
@@ -10,6 +10,7 @@
 #            $var get_feature_value($feature, $char_id);\r
 #            $var set_feature_value($feature, $char_id, $value);\r
 #            $var create_new_char($feature, $value);\r
+#            $char_id decode_char($feature_char, $int);\r
 \r
 use chise_tools;\r
 use chise;\r
@@ -80,4 +81,11 @@ sub update_chise{ # save added data to database
   }\r
 }\r
 \r
+sub decode_char{ # feature, int -> charID, 0\r
+  if(scalar(@_) != 2){\r
+    return 0;\r
+  }\r
+  return chise::chise_ds_decode_char($chise_ds, chise_tools::get_uchar($_[0]), $_[1]);\r
+}\r
+\r
 1;\r