From: imiyazaki Date: Tue, 28 Oct 2003 13:42:45 +0000 (+0000) Subject: enable &de_er() to work. X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fperl.git;a=commitdiff_plain;h=c1ab872978f1d465bbe4aa99143363b438867f78 enable &de_er() to work. --- diff --git a/Chise_utils/scripts/sample.pl b/Chise_utils/scripts/sample.pl index 5548e96..a287ab2 100644 --- 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){