enable &de_er() to work.

diff --git a/Chise_utils/scripts/sample.pl b/Chise_utils/scripts/sample.pl
index 5548e96..a287ab2 100644 (file)
--- a/Chise_utils/scripts/sample.pl
+++ b/Chise_utils/scripts/sample.pl
@@ -52,6 +52,7 @@ if($opt_help
     exit 1;
 }else{
     $char=shift or $char="";
+    $char=&de_er($char);
 }
 
 if($opt_mapfrom){
@@ -81,7 +82,6 @@ if($opt_map){
        print STDERR "No map for $opt_rev_map.\n";
     }
 }elsif($opt_allatr){
-    $char=&de_er($char) if($char=~/\d/);
     print $char,"\n";
     foreach $atr (sort keys %db){
        if($value=&get_char_attribute($char,$atr)){
@@ -89,7 +89,6 @@ if($opt_map){
        }
     }
 }elsif($opt_atr){
-    $char=&de_er($char) if($char=~/\d/);
     print $char,"\n";
     print "  ",$opt_atr,":",&get_char_attribute($char,$opt_atr),"\n";
 }elsif($opt_showatr){