jinying8869 发表于 2017-5-19 12:12:29

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

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