mojo 关闭utf8

[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 ,$str);
					}};
					
					close LOG1;
          $c->render(text =>  "测试更健康" );
};
				   


  app->start;
  
  此时接口返回;
  [root@wx03 ~]# morbo test.pl 

Server available at http://127.0.0.1:3000
[Thu Jun 30 19:50:58 2016] [debug] GET "/admin/api/menu"
[Thu Jun 30 19:50:58 2016] [debug] Routing to a callback
Wide character in print at /root/test.pl line 11.
测试更健康
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!

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 19:50:58 2016] [debug] 200 OK (0.00104s, 961.538/s)









/******


[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 ,$str);
					}};
					
					close LOG1;
          $c->render(text =>  "测试更健康" );
};
				   


  app->start;
  
  
  [root@wx03 ~]# morbo test.pl 
Server available at http://127.0.0.1:3000
[Thu Jun 30 19:52:38 2016] [debug] GET "/admin/api/menu"
[Thu Jun 30 19:52:38 2016] [debug] Routing to a callback
Wide character in print at /root/test.pl line 11.
测试更健康
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 19:52:38 2016] [debug] 200 OK (0.001048s, 954.198/s)



/************ 关闭utf-8

[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 ,$str);
					}};
					
					close LOG1;
          $c->render(text =>  "测试更健康" );
};
				   


  app->start;
  
  
  
  接口返回;
  
  
  [root@wx03 ~]# morbo test.pl 
Server available at http://127.0.0.1:3000
[Thu Jun 30 19:55:09 2016] [debug] GET "/admin/api/menu"
[Thu Jun 30 19:55:09 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 19:55:09 2016] [debug] 200 OK (0.001001s, 999.001/s)

  

posted @ 2016-06-30 19:58  czcb  阅读(133)  评论(0编辑  收藏  举报