perl 定义post接口

最新推荐文章于 2022-04-06 11:46:50 发布

weixin_30795127

最新推荐文章于 2022-04-06 11:46:50 发布

阅读量86

点赞数

原文链接：http://www.cnblogs.com/zhaoyangjian724/p/6199740.html

版权

use Mojolicious::Lite;
use JSON qw/encode_json decode_json/;  
use Encode;
no strict;
use JSON; 
use Data::Dumper;
#no  utf8;
# /foo?user=sri
 post '/admin/api/menu' => sub {
          my $c = shift;
          print "测试更健康\n";
          my @arr1=();
         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;

转载于:https://www.cnblogs.com/zhaoyangjian724/p/6199740.html