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=$_;
m
perl 定义post接口
最新推荐文章于 2022-04-06 11:46:50 发布
这篇博客介绍了如何使用Perl的Mojolicious框架定义一个POST接口,该接口读取并处理指定日志文件的内容。通过查找特定手机号码和关键字,筛选出符合要求的日志行,并将其作为JSON响应返回。
摘要由CSDN通过智能技术生成