On Mon, Apr 03, 2006, Werner LEMBERG wrote:
> while (<>) {
> s/([\xA1-\xFE])([\x40-\x7E]|[\xA1-\xFE])/
> if ($2 eq "\\" || $2 eq "{" || $2 eq "}") {
> sprintf("\\CJKchar{%d}{%d}", ord($1), ord($2));
> }
> else {
> sprintf("$1$2");
> }
> /eg;
> print;
> }
Oopes, I send my email too fast.:)
Edward
_______________________________________________
Cjk maillist - [email protected]
http://lists.ffii.org/mailman/listinfo/cjk
