perl 匹配中文和中文转码有关问题

2012-12-23

perl 匹配中文和中文转码问题记录一下，搞了好几天，呵呵$str ~ s/([\x80-\xFF][\x80-\xFF])/sprintf(&#x%

perl 匹配中文和中文转码问题
记录一下，搞了好几天，呵呵
$str =~ s/([\x80-\xFF][\x80-\xFF])/sprintf("&#x%X;", ord decode("GBK", $1))/ego;