测试关闭mojo utf-8

来源：互联网发布：java new int 编辑：程序博客网时间：2024/05/21 19:33
[root@wx03 ~]# cat test.pl use Mojolicious::Lite;use JSON qw/encode_json decode_json/;  use Encode;no strict;use JSON; use Data::Dumper;no  utf8;# /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 $d=encode_utf8('验证');my $d='验证';                                        print "1-------\$str is $str\n";next if ($str !~ /$d/);print "2--------\$str is $str\n";push (@arr1 ,decode_utf8($str));}};close LOG1;          $c->render(json =>  \@arr1 );};     app->start;        接口返回：    [root@wx03 ~]# morbo test.pl Server available at http://127.0.0.1:3000[Thu Jun 30 20:09:34 2016] [debug] GET "/admin/api/menu"[Thu Jun 30 20:09:34 2016] [debug] Routing to a callback测试更健康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!1-------$str is 2016-04-22 11:02:01,259 INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:您的813231，本30分钟内有效。 to phoneNo:18072722237 succeed!1-------$str is 2016-04-22 11:02:01,259 INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:您的813231，本30分钟内有效。 to phoneNo:18072722237 succeed![Thu Jun 30 20:09:34 2016] [debug] 200 OK (0.001106s, 904.159/s)[root@wx03 ~]# curl http://120.55.xx.6:3000/admin/api/menu["2016-04-22 11:02:01,259 INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:您的验证码为813231，本验证码30分钟内有效。 to phoneNo:18072722237 succeed!\n"][root@wx03 ~]#
0 0