分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow
也欢迎大家转载本篇文章。分享知识,造福人民,实现我们中华民族伟大复兴!
<pre name="code" class="sql"> use Weixin::Client; use Encode; #目前只能用于群回复 my $client = Weixin::Client->new(debug=>0); #加载ShowMsg插件,用于打印消息 $client->load("ShowMsg"); #客户端登录 $client->login(); #设置客户端接收消息回调函数 $client->on_receive_msg = sub{ my $msg = shift ; # my ($client,$msg)=@_; ## 消息内容 #打印收到的消息 $client->call("ShowMsg",$msg); $recm= $msg->{Content}; $recm=encode("gbk",decode("utf8","$recm")); if ($recm =~/中均\s+\d{11}/i){ $recm =~ s/^\s+//; $number =(split(/\s+/,"$recm"))[1];$i=0;@arr=();@tmp1=();@tmp2=();use Encode;open (LOG1 ,"<",'