fix coding system.

diff --git a/Chise_utils/scripts/sample.pl b/Chise_utils/scripts/sample.pl
index a27b227..41b5d35 100644 (file)
--- a/Chise_utils/scripts/sample.pl
+++ b/Chise_utils/scripts/sample.pl
@@ -25,23 +25,23 @@ Usage: perl $0 [-m <map> | --map <map> |
       ex. of <expression>
          total-strokes==8 means
            the attribute of total-strokes exactly matches to 8.
-         ids-parts=‾ø½‹§‚ï½¢ means
-           the attribute of ids-parts contains the string ø½‹§‚ï½¢.
-         total-strokes==8,ids-parts=‾ø½‹§‚ï½¢ means both at the same time.
+         ids-parts=~矢 means
+            the attribute of ids-parts contains the string 矢.
+         total-strokes==8,ids-parts=~矢 means both at the same time.
     -a  get <attribute> of <char>
     -aa get all attributes of <char>
 EOF
 
-&GetOptions("mapto=s"=>Â¥$opt_mapto,
-           "mapfrom=s"=>Â¥$opt_mapfrom,
-           "m=s"=>Â¥$opt_map,
-           "r=s"=>Â¥$opt_rev_map,
-           "a=s"=>Â¥$opt_atr,
-           "aa"=>Â¥$opt_allatr,
-           "show-attribute"=>Â¥$opt_showatr,
-           "q"=>Â¥$opt_query,
-           "help",Â¥$opt_help,
-           "h",Â¥$opt_help);
+&GetOptions("mapto=s"=>\$opt_mapto,
+           "mapfrom=s"=>\$opt_mapfrom,
+           "m=s"=>\$opt_map,
+           "r=s"=>\$opt_rev_map,
+           "a=s"=>\$opt_atr,
+           "aa"=>\$opt_allatr,
+           "show-attribute"=>\$opt_showatr,
+           "q"=>\$opt_query,
+           "help",\$opt_help,
+           "h",\$opt_help);
 
 if($opt_help
    or !((($opt_map or $opt_rev_map or $opt_mapfrom or $opt_mapto) and @ARGV==0)
@@ -66,44 +66,44 @@ if($opt_map){
     if(&get_db($opt_map)){
        foreach $char (sort keys %{$chardb{$opt_map}}){
            if($chardb{$opt_map}->{$char}){
-               print $char,"Â¥t",$chardb{$opt_map}->{$char},"Â¥n";
+               print $char,"\t",$chardb{$opt_map}->{$char},"\n";
            }
        }
     }else{
-       print STDERR "No map for $opt_map.Â¥n";
+       print STDERR "No map for $opt_map.\n";
     }
 }elsif($opt_rev_map){
     if(&get_reverse_db($opt_rev_map)){
        foreach $char (sort keys %{$reverse_chardb{$opt_rev_map}}){
            if($reverse_chardb{$opt_rev_map}->{$char}){
-               print $char,"Â¥t",$reverse_chardb{$opt_rev_map}->{$char},"Â¥n";
+               print $char,"\t",$reverse_chardb{$opt_rev_map}->{$char},"\n";
            }
        }
     }else{
-       print STDERR "No map for $opt_rev_map.Â¥n";
+       print STDERR "No map for $opt_rev_map.\n";
     }
 }elsif($opt_allatr){
-    print $char,"Â¥n";
+    print $char,"\n";
     foreach $atr (sort keys %db){
        if($value=&get_char_attribute($char,$atr)){
-           print "  ",$atr,":",$value,"Â¥n";
+           print "  ",$atr,":",$value,"\n";
        }
     }
 }elsif($opt_atr){
-    print $char,"Â¥n";
-    print "  ",$opt_atr,":",&get_char_attribute($char,$opt_atr),"Â¥n";
+    print $char,"\n";
+    print "  ",$opt_atr,":",&get_char_attribute($char,$opt_atr),"\n";
 }elsif($opt_showatr){
-#    print "In DBÂ¥n";
+#    print "In DB\n";
     foreach $atr (sort keys %db){
-       print "  ",$atr,"Â¥n";
+       print "  ",$atr,"\n";
     }
-#    print "In reverse DBÂ¥n";
+#    print "In reverse DB\n";
 #    foreach $atr (sort keys %reverse_db){
-#      print "  ",$atr,"Â¥n";
+#      print "  ",$atr,"\n";
 #    }
 }elsif($opt_query){
     my $query=$char;
-    print join "Â¥n",&get_chars_for($query),"Â¥n";
+    print join "\n",&get_chars_for($query),"\n";
 }
 
 exit 0;