perl WeixinClient
perl WeixinClient
优惠券已抵扣
余额抵扣
还需支付
¥39.90
¥99.00
购买须知?
本专栏为图文内容,最终完结不会低于15篇文章。
订阅专栏,享有专栏所有文章阅读权限。
本专栏为虚拟商品,基于网络商品和虚拟商品的性质和特征,专栏一经购买无正当理由不予退款,不支持升级,敬请谅解。
scan724
这个作者很懒,什么都没留下…
展开
-
基于perl面向对象开发的微信机器人
[root@wx03 lib]# ls -ltrtotal 40-rw-r--r-- 1 root root 2022 May 21 18:28 blogin.pm-rw-r--r-- 1 root root 1138 May 21 18:28 qrcode.pm-rw-r--r-- 1 root root 2522 May 21 18:28 init.pm-rw-r--r-- 1 ro原创 2016-05-22 17:47:03 · 768 阅读 · 0 评论 -
Weixin复杂数据2
-------------syncinfo----------------- { "BaseResponse": { "Ret": 0, "ErrMsg": "" } , "AddMsgCount": 3, "AddMsgList": [{ "MsgId": "7111408761834680132", , "QQNum": 0, "Province原创 2016-02-04 14:25:48 · 761 阅读 · 0 评论 -
微信几处比较难的引用
"SyncKey": { "Count": 7, "List": [{ "Key": 1, "Val": 646985714 } ,{ "Key": 2, "Val": 646985938 } ,{ "Key": 3, "Val": 646985901 } ,{ "Key": 11, "Val": 646985807 } ,{原创 2016-02-04 13:57:49 · 520 阅读 · 0 评论 -
@chatroom_id来源
sub _get_chatroom{ my $self = shift; my @chatroom_id = @_; my $post = { BaseRequest => { Uin => $self->wxuin, DeviceID => $self->deviceid,原创 2016-02-03 17:40:41 · 4165 阅读 · 0 评论 -
配置Rsync Windows 服务端和Linux客户端
Windows 服务端:use chroot = false strict modes = false hosts allow = * log file = rsyncd.logport = 1873UID = 0GID = 0 # Module definitions # Remember cygwin naming conventions : c:\work be原创 2016-02-03 12:38:44 · 406 阅读 · 0 评论 -
异步方式
就是收完信息才能发,发完才能收一步一步走原创 2016-02-02 17:47:20 · 425 阅读 · 1 评论 -
webwxgetcontact 获取的是通讯录里的群或好友的信息
webwxgetcontact 获取的是通讯录里的群或好友的信息原创 2016-02-02 16:50:23 · 3371 阅读 · 0 评论 -
发送cookie
原创 2016-02-16 10:57:23 · 843 阅读 · 0 评论 -
GET: https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login? loginicon=true &uuid=odcptUu2JA==&tip=0
GET:https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=odcptUu2JA==&tip=0&r=491986618&_=1455501912000参数:_ 1455501912000loginicon truer 491986618原创 2016-02-16 10:28:06 · 22586 阅读 · 1 评论 -
PERL 实现微信登录
get 请求:https://login.weixin.qq.com/jslogin?appid=wx782c26e4c19acffb&redirect_uri=https%3A%2F%2Fwx.qq.com%2Fcgi-bin%2Fmmwebwx-bin%2Fwebwxnewloginpage&fun=new&lang=zh_CN&_=1455501911998参数:_原创 2016-02-16 10:15:14 · 2494 阅读 · 1 评论 -
perl 微信取自己的ID
$synckey is 1_647230939%7C2_647231409%7C3_647230934%7C1000_1454375195$name is xxxx@25123d6a1a01232acfe6e53f1a8b856237c150736ef790fe3f0a3aa0c87eb2f9$url is https://webpush.weixin.qq.com/cgi-bin/mmw原创 2016-02-02 13:28:51 · 176 阅读 · 0 评论 -
perl 微信 字符集问题
Linux 跑微信,数据库编码AL32UTF8字符集编码为gbkexport ORACLE_HOME=/u01/app/oracle/product/11.2.0.4/db_1 export NLS_LANG=american_america.AL32UTF8export LANG=zh_CNWindiws 跑微信,数据库编码AL32UTF8E:\weixin>set | fi原创 2016-02-15 19:38:38 · 525 阅读 · 0 评论 -
perl weixin 发消息接口 webwxsendmsg
https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxsendmsg?pass_ticket=LgzXT2VkpsFT%252FpgOQoJUZ%252FcBrY%252F1RO8zvbXib05ziwNgFttMTFR5G7%252BWj%252BlcvCjm 参数: pass_ticket LgzXT2VkpsFT%2FpgOQoJUZ%2FcBrY%原创 2016-02-01 22:23:03 · 3890 阅读 · 0 评论 -
关于微信 init接口返回的Count和webwxbatchgetcontact post请求的参数Count
POST init接口返回:https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxinit?r=1691109206&lang=zh_CN&pass_ticket=UX9GsuROUbBEr%252B97CeEj07EuY2pHCpDpC7HcECQgPiQA%252FeATYJbGiJ39Nschkve3{"BaseResponse": {"Ret"原创 2016-02-01 13:53:22 · 5951 阅读 · 1 评论 -
运行期间id是不变的
-------------syncinfo-----------------{"BaseResponse": {"Ret": 0,"ErrMsg": ""},"AddMsgCount": 1,"AddMsgList": [{"MsgId": "8822531092388269843","FromUserName": "@057560a90b3acef45a684469c3e9f原创 2016-02-01 14:15:18 · 135 阅读 · 0 评论 -
json 转数组
-------------syncinfo-----------------json-----------------{"BaseResponse": {"Ret": 0,"ErrMsg": ""},"AddMsgCount": 2,"AddMsgList": [{"MsgId": "1664458959297513240","FromUserName": "@@654619原创 2016-02-04 14:50:56 · 609 阅读 · 0 评论 -
微信涉及的重要数据结构-1
jrhmpt01:/root/wx# cat k1.pl $var={'SyncKey' => { 'List' => [ { 'Val' => 647234082,原创 2016-02-04 15:08:35 · 2164 阅读 · 0 评论 -
微信模块介绍
[root@dr-mysql01 Weixin]# find . -type f | xargs grep -l 'return $self->display'./Friend.pm./User.pm user是指你自己 friend是指你通讯录里的好友原创 2016-10-28 20:34:50 · 1813 阅读 · 0 评论 -
修改MojoWeixin 只保留用户name 取消群昵称
if($msg->type eq "friend_message"){#接收到好友消息 $sender = $msg->sender; #获取到该好友对象 $friend=$sender->displayname; # print "我的好友:" . $sender->displayname . "给我发了一个消息,消息的内容是:" . $m原创 2016-04-24 13:52:24 · 1152 阅读 · 0 评论 -
perl URLencode URLdecode的方法
一个perl URLencode URLdecode的方法#引入模块use URI::Escape;#urlencode$encoded = uri_escape("10% is enough\n"); #urldecode$decoded = uri_unescape($encoded);jrhmpt01:/root/wx# cat s3.pl use URI::Esca原创 2016-01-29 09:59:11 · 2030 阅读 · 0 评论 -
perl json encode_json decode_json
use之后使用encode_json命令即可将perl的array或者dic转换为标准的JSON字符串了:jrhmpt01:/root/wx# cat json.pl use JSON qw/encode_json decode_json/; my $data = [ { 'name' => 'Ken', 'age' => 19 },原创 2016-01-25 11:29:23 · 3142 阅读 · 0 评论 -
微信机器人 简化版
use LWP::UserAgent;use URI::Escape;use Net::Ping;use JSON qw(encode_json);use Socket;use Net::SMTP;use LWP;use LWP::Simple;use LWP::UserAgent;use HTTP::Cookies;use HTTP::Headers;use HTTP::R原创 2016-02-23 13:50:05 · 2307 阅读 · 2 评论 -
微信cookie内容
#LWP-Cookies-1.0Set-Cookie3: webwx_data_ticket="AQeVHpn/pdyrAQHCl++4ZvS0"; path="/"; domain=.qq.com; path_spec; expires="2016-03-21 18:54:08Z"; version=0Set-Cookie3: mm_lang=zh_CN; path="/"; domain=原创 2016-03-21 15:04:03 · 1662 阅读 · 0 评论 -
perl 实现微信简版<2>
use LWP::UserAgent;use URI::Escape;use Net::Ping;use JSON qw(encode_json);use Socket;use Net::SMTP;use LWP;use LWP::Simple;use LWP::UserAgent;use HTTP::Cookies;use HTTP::Headers;use HTTP::R原创 2016-03-13 16:18:16 · 793 阅读 · 0 评论 -
好友消息和群消息区别
好友消息类型:$message is 空军建军节群消息类型:$message is @33623fd04e4001687be9b5d85b1e2958950adc947c2398c59225d8904ff98bea:hhhgf原创 2016-02-22 14:23:59 · 732 阅读 · 0 评论 -
完整的微信登陆 接收消息流程
1. GET获取uuid = "YbnMBIWGuQ==";https://login.weixin.qq.com/jslogin?appid=wx782c26e4c19acffb&redirect_uri=https%3A%2F%2Fwx.qq.com%2Fcgi-bin%2Fmmwebwx-bin%2Fwebwxnewloginpage&fun=new&lang=zh_CN&_=1原创 2016-02-20 22:21:21 · 11059 阅读 · 4 评论 -
简单的hash解引用例子
uat-prx02:/root# cat a2.pl $arr={1=>2, 3=>4};print %$arr;print "\n";print $$arr{3};print "\n";print $arr->{3};print "\n";uat-prx02:/root# perl a2.pl 123444原创 2016-02-04 19:50:48 · 568 阅读 · 0 评论 -
解hash引用
uat-prx02:/root# cat a3.pl %hash=(a=>1,b=>2);print %hash;print "\n";print $hash{a};print "\n";print "222222222222222\n";$var={'AddMsgList' => [{'a'=>1,'b'=>2},{'a'=>3,'b'=>4}]};print $var;pr原创 2016-02-04 19:45:25 · 772 阅读 · 0 评论 -
perl 数组引用
uat-prx02:/root# cat a1.pl @array=qw/1 2 3 /;print @array;print "\n";$array=[1,2,3];print $array;print "\n";print "222222222222\n";print @$array;print "\n";uat-prx02:/root# perl a1.pl 123A原创 2016-02-04 19:24:18 · 663 阅读 · 0 评论 -
散列的数组
jrhmpt01:/root/wx# cat k3.pl @var=({a=>1,b=>2},{a=>3,d=>4});print @var;print "\n";foreach (@var){print "\$_ is $_\n"};print "2222222222222222222\n";foreach (@var){print "\$_ is $_->{a}\n"};jr原创 2016-02-04 15:53:45 · 646 阅读 · 0 评论 -
微信涉及的重要数据结构-2
jrhmpt01:/root/wx# cat k2.pl $VAR1 = { 'AddMsgList' => [ { 'AppMsgType' => 0, 'ImgWidth' => 0,原创 2016-02-04 15:18:44 · 1333 阅读 · 0 评论 -
perl synccheck和sync 之间的继承关系
$url="https://webpush.weixin.qq.com/cgi-bin/mmwebwx-bin/synccheck?r=$now&skey=$Skey_x&sid=$wxsid&uin=$wxuin&deviceid=$DeviceID&synckey=$synckey&_=$now"; $sync_url="https://wx.qq.com/cgi-bin/mmwebw原创 2016-01-30 20:56:18 · 876 阅读 · 0 评论 -
sync 接口返回的内容
-------------syncinfo-----------------{"BaseResponse": {"Ret": 0,"ErrMsg": ""},"AddMsgCount": 3,"AddMsgList": [{"MsgId": "7111408761834680132","FromUserName": "@3c0ed6bb7b11a5d2df4202a247063原创 2016-01-31 22:01:26 · 3040 阅读 · 1 评论 -
原创 山寨版微信
use LWP::UserAgent;use URI::Escape;use Net::Ping;use JSON qw(encode_json);use Socket;use Net::SMTP;use LWP;use LWP::Simple;use LWP::UserAgent;use HTTP::Cookies;use HTTP::Headers;use HTTP::R原创 2016-01-29 18:22:16 · 1638 阅读 · 0 评论 -
Oracle 11g 在audit_file_dest目录下产生大量的aud文件
每次sysdba或者sysoper权限登录都会写入一个audit trail文件或者在现有的trail文件后面添加登录信息,而这个并不受audit_trail参数限制,audit_trail是显示是否启用审计和审计内容存储的具体位置有关audit_sys_operations参数:AUDIT_SYS_OPERATIONS enables or disables the auditing of原创 2016-02-05 11:23:35 · 10008 阅读 · 0 评论 -
perl 读取wx返回的json 唉!
jrhmpt01:/root/wx# cat t7.pl $VAR1 = { 'List' => [ { 'Val' => 646950773, 'Key' => 1 },原创 2016-01-26 17:36:56 · 128 阅读 · 0 评论 -
微信 群好友 的返回微信号 有阉割
"Uin": 0,"UserName": "@e1b6fb673e3e4bc1ea3bc00202fdbb86","NickName": "徐跃","AttrStatus": 98407,"PYInitial": "","PYQuanPin": "","RemarkPYInitial": "","RemarkPYQuanPin": "","MemberStatus": 0,"Di原创 2016-01-09 10:47:53 · 3133 阅读 · 0 评论 -
Perl 微信模块--Weixin::Client
package Weixin::Client;use strict;use File::Spec;use Weixin::Util;use LWP::UserAgent;use Weixin::UserAgent;use LWP::Protocol::https;use base qw( Weixin::Message Weixin::Client::Callba原创 2016-01-08 18:05:21 · 1245 阅读 · 0 评论 -
同步和异步请求
普通的B/S模式就是同步,而AJAX技术就是异步,当然XMLHttpReques有同步的选项。同步:提交请求->等待服务器处理->处理完毕返回。这个期间客户端浏览器不能干任何事。异步: 请求通过事件触发->服务器处理(这是浏览器仍然可以作其他事情)->处理完毕。原创 2016-01-26 10:34:25 · 284 阅读 · 0 评论 -
web 微信一些接口说明
步骤:1 获取uuidhttps://login.weixin.qq.com/jslogin?appid=wx782c26e4c19acffb&redirect_uri=https%3A%2F%2Fwx.qq.com%2Fcgi-bin%2Fmmwebwx-bin%2Fwebwxnewloginpage&fun=new&lang=zh_CN&_=1453465626377get参数:_原创 2016-01-22 21:40:01 · 27625 阅读 · 2 评论