support 5.8.1 only.

diff --git a/Chise_utils/scripts/sample.pl b/Chise_utils/scripts/sample.pl
index a287ab2..a27b227 100644 (file)
--- a/Chise_utils/scripts/sample.pl
+++ b/Chise_utils/scripts/sample.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl -w -CSD
 
 use Getopt::Long;  
 use strict;
@@ -9,6 +9,7 @@ use vars qw($atr $value $char
            $opt_help
            );
 use Chise_utils ':all';
+require 5.008001;
 
 my $usage=<<EOF;
 Usage: perl $0 [-m <map> | --map <map> |
@@ -24,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)
@@ -65,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;