[root@wx03 mojo]# cat test.pl use Mojolicious::Lite; use JSON qw/encode_json decode_json/; use Encode; no strict; use JSON; use Data::Dumper; # /foo?user=sri get '/admin/api/menu' => sub { my $c = shift; print "测试更健康\n"; open (LOG1 ,"<",'/data01/applog_backup/zj-api01-catalina.out') or die $!; while (<LOG1>) { my $phone='18072722237'; #2016-03-09 09:35:12,380 INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:您的验证码为132435,本验证码5分钟内有效。 to phoneNo:18072722237 succeed! if ( ($phone) and ($_ =~/$phone/) and ($_ =~/SMSUtils/) ){$str=$_; my $x='验证'; print "\$x is $x\n"; my $d=encode_utf8('验证'); print "\$d is $d\n"; print "1-------\$str is $str\n"; next if ($str !~ /$d/); print "2--------\$str is $str\n"; #push (@arr1 ,decode_utf8($str)); push (@arr1 ,$str); }}; close LOG1; $c->render(json => \@arr1 ); }; app->start; [root@wx03 mojo]# morbo test.pl Server available at http://127.0.0.1:3000 Wide character in print at /root/mojo/test.pl line 10. 测试更健康 Wide character in print at /root/mojo/test.pl line 19, <LOG1> line 1. $x is 验证 $d is 验证 1-------$str is 2016-04-22 11:02:01,259 INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:您的验证码为813231,本验证码30分钟内有效。 to phoneNo:18072722237 succeed! 2--------$str is 2016-04-22 11:02:01,259 INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:您的验证码为813231,本验证码30分钟内有效。 to phoneNo:18072722237 succeed! Wide character in print at /root/mojo/test.pl line 19, <LOG1> line 3. $x is 验证 $d is 验证 1-------$str is 2016-04-22 11:02:01,259 INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:您的813231,本30分钟内有效。 to phoneNo:18072722237 succeed! Wide character in print at /root/mojo/test.pl line 19, <LOG1> line 4. $x is 验证 $d is 验证 1-------$str is 2016-04-22 11:02:01,259 INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:您的813231,本30分钟内有效。 to phoneNo:18072722237 succeed! 此时$d和$x都正常显示 [root@wx03 mojo]# cat c1.pl use Encode; my $x='验证'; print "\$x is $x\n"; my $d=encode_utf8('验证'); print "\$d is $d\n"; [root@wx03 mojo]# perl c1.pl $x is 验证 $d is éªè¯ 说明encode_utf8 必须用在utf8编码环境
perl encode_utf8必须用在utf8环境
转载本文章为转载内容,我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题,欢迎原作者联系我们进行内容更正或删除文章。
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章