From: imiyazaki <imiyazaki>
Date: Fri, 7 Nov 2003 18:26:21 +0000 (+0000)
Subject: fix coding system.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=686c95800ccd387349f4fccb8658bb425a7c0041;p=chise%2Fperl.git

fix coding system.
---

diff --git a/Chise_utils/scripts/sample.pl b/Chise_utils/scripts/sample.pl
index a27b227..41b5d35 100644
--- 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;