有没有人对perl或控制台编码熟悉的？关于中文显示乱码的问题。解决的给20rmb
同样的perl代码在linux显示中文正确，是perl文件名的方式运行。在我的windows上，不管用idepadre还是命令行运行，都无法正确显示中文。...
同样的perl代码在linux显示中文正确，是perl 文件名的方式运行。在我的windows上，不管用ide padre还是命令行运行，都无法正确显示中文。
展开
1个回答
展开全部
use utf8;
use 5.14.2;
use encoding 'utf8', STDOUT => 'gb2312';
my $str = "ab中国";
if ($str =~/([ab]+)(.*)$/) {
say $1;
say $2;
}
更多追问追答
追问
果然能行，牛！能不能再发个中文正则过来，网上的[\u4e00-\u9fa5]貌似不起作用，能不能再一下判断汉字的正则。顺便贴个20元的付款二维码吧
追答
my $str = "ab中国ab中国b中国123万里冰封";
for (1..length $str) {
printf "%04x\n", ord(substr($str, $_, 1));
}
while ($str =~/([\x{4e00}-\x{9fa5}]+)/g) {
say $1;
}
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
