$_=decode('utf8', $_);
s/(.)/pack("U",&get_char_id(unpack("U",$1),$in_cs))/ge;
}
- s/(amp.+?;)/&tex_de_er($1)/ge;
+ s/(amp.+?;)/&de_er($1)/ge;
# s/(&.+?;)/&tex_de_er($1)/ge;
@chars=split(//);
for($i=0;$i<=$#chars;$i++){
exit 0;
-sub tex_de_er{
- my($er)=@_;
- my($out);
- $er=~s/^amp(.*);$/$1/;
-# $er=~s/^&(.*);$/$1/;
- $out=&de_er($er);
- if($out and $out ne $er){
- return $out;
- }else{
- return "amp$er;";
- }
-}
-
sub add_break{
my($i)=@_;