Mojo 返回一维和二维数组

最新推荐文章于 2025-08-18 09:00:24 发布

weixin_30950607

最新推荐文章于 2025-08-18 09:00:24 发布

阅读量97

点赞数

CC 4.0 BY-SA版权

文章标签： json

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

本文介绍使用Perl进行日志文件解析的过程，包括日期时间的提取、信息匹配及数组的填充与输出。通过具体代码示例展示了如何将解析后的信息存储到一维和二维数组中，并最终以JSON格式返回。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这种情况不断的网数组@arr2里放入数据,返回的内容为:

这种情况是一维数组:

while( $selStmt->fetch() ){
print "\$a1 is $a1\n";
print "\$a2 is $a2\n";
print "\$a3 is $a3\n";
push (@arr2, "$a1  $a2  $a3" );
  };

  $c->render(json =>  \@arr2);
};


http://192.168.32.101:3000/api/auto_publish/publish_info?env=uat 返回结果:

["121.40.189.90  uat-frontend  uat","121.40.100.198  zjzc-hy-pre-01  uat","121.40.100.198  zjzc-hy-core-01  uat"]


另外一种情况,返回二维数组:

foreach (@arr){  
##2015-11-04 15:51:54,134 DEBUG com.zjzc.thirdparty.sms.SMSSendThread 

##2016-03-09 09:35:12,380 INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:您的验证码为132435，本验证码5分钟内有效。 to phoneNo:18072722237 succeed!
   if ($_ =~  /([0-9]{4}-[0-9]{1,2}-[0-9]{2}\s+[0-9]{2}:[0-9]{2}:[0-9]{2}.*?)\s+(.*?Send message:)\s*(.*?)(to\s+phoneNo:\s*[0-9]{11}).*/){
	
	$a1=$1;
	$a2=$2;
	$a3=$3;
	$a4=$4;
    
	##微信是UTF-8字符集
	
	
	my 	$endtime=strftime("%Y%m%d%H%M%S",localtime());
	
	my $d=encode_utf8('验证');
	if ($a3 =~/$d/){ 
	#$msg->reply("\@$friend $a1-$a3-$a4");
	$a3=decode_utf8("$a3");
	##encode("utf8",decode("gbk","格式为:中均/温金 客户手机号"))
	 #@content=($a1,$a3,$a4);
	 my @content=("$a1","$a3","$a4");
	 my $href= \@content;
	 push (@arr_out ,$href);
                  }
				                              };
           };

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