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;