zoukankan      html  css  js  c++  java
  • perl 定义post接口

    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 "测试更健康
    ";
              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
    ";
    					next if ($str !~ /$d/);
    					print "2--------$str is $str
    ";
    					push (@arr1 ,decode_utf8($str));
    					}};
    					
    					close LOG1;
              $c->render(json =>  @arr1 );
    };
    				   
    
    
      app->start;

  • 相关阅读:
    【20170923】2017暑假北京学习 day 3
    Leetcode 39
    事无巨细 | 访问一个网站的过程
    Leetcode 77
    排序 | 快速排序
    排序 | 堆排序
    Leetcode 60
    Leetcode 51
    海量数据处理的解法
    Leetcode 99
  • 原文地址:https://www.cnblogs.com/zhaoyangjian724/p/6199741.html
Copyright © 2011-2022 走看看