use lib 'D:\360安全浏览器下载\pfwx-master\pfwx-master\lib';
use Weixin::Client;
use Data::Dumper;
my $client = Weixin::Client->new(debug=>0);
my $xx= Dumper($client);
print $xx;
print "\n"
use Weixin::Client; 对应的D:\360安全浏览器下载\pfwx-master\pfwx-master\lib\Weixin
cat Client.pm
C:\Users\Administrator\Desktop\perl 大骆驼\黑豹>perl a1.pl
$VAR1 = bless( {
'ua' => bless( {
'max_redirect' => 7,
'ssl_opts' => {
'verify_hostname' => 0
},
'protocols_forbidden' => undef,
'show_progress' => undef,
'handlers' => {
'request_prepare' => bless( [
{
'owner' => 'LWP::UserAgent::cookie_jar',
'callback' => sub { "DUMMY" },
'line' => 'C:/Perl/site/lib/LWP/UserAgent.pm:705'
}
],
'HTTP::Config' ),
'response_header' => bless( [
{
'owner' => 'LWP::UserAgent::parse_head',
'callback' => sub { "DUMMY" },
'm_media_type' => 'html',
'line' => 'C:/Perl/site/lib/LWP/UserAgent.pm:684'
}
],
'HTTP::Config' ),
'response_done' => bless( [
{
'owner' => 'LWP::UserAgent::cookie_jar',
'callback' => sub { "DUMMY" },
'line' => 'C:/Perl/site/lib/LWP/UserAgent.pm:708'
}
], '
HTTP::Config' )
},
'no_proxy' => [],
'protocols_allowed' => undef,
'local_address' => undef,
'use_eval' => 1,
'requests_redirectable' => [
'GET',
'HEAD'
],
'timeout' => 300,
'cookie_jar' => bless( {
'autosave' => 1,
'COOKIES' => {
'wx.qq
.com' => {
'/' => {
'wxuin' => [
'0',
'164192082',
undef,
1,
'',
1452389893,
''
],
'webwxuvid' => [
'0',
'6d4c8cb706c398363b75383415b2252973b55e5fa6
6a2d1ae7f7ef0ed07163c95c879af50e91dc3cfdc529b106ae4dfa',
undef,
1,
'',
1767338908,
''
],
'wxloadtime' => [
'0',
'1452061951_expired',
undef,
1,
'',
1452105330,
''
],
'mm_lang' => [
'0',
'zh_CN',
undef,
1,
'',
1452114456,
''
],
'wxpluginkey' => [
'0',
'1452128554',
undef,
1,
'',
1452173893,
''
],
'wxsid' => [
'0',
'xoUGfUYwn26RcGAY',
undef,
1,
'',
1452173893,
''
]
}
},
'.qq.c
om' => {
'/' => {
'webwx_data_ticket' => [
'0',
'AQcxIka7SpKwsRzNcKc8y3yB',
undef,
1,
'',
1452173893,
''
]
}
}
},
'file' => 'C:\\Users\
\ADMINI~1\\AppData\\Local\\Temp/weixin_client_login.dat',
'hide_cookie2' => 1
}, 'HTTP::Cookies' ),
'def_headers' => bless( {
'user-agent' => 'Moz
illa/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.206
2'
}, 'HTTP::Headers' ),
'proxy' => {},
'max_size' => undef
}, 'LWP::UserAgent' ),
'is_stop' => 0,
'_send_message_queue' => bless( {
'callback_for_get_bak' => sub
{ "DUMMY" },
'callback_for_get' => $VAR1->
{'_send_message_queue'}{'callback_for_get_bak'},
'queue' => []
}, 'Weixin::Message::Queue' ),
'_send_msg_interval' => 4,
'tmpdir' => 'C:\\Users\\ADMINI~1\\AppData\\Local\\Temp',
'plugins' => {},
'on_receive_msg' => undef,
'_data' => {
'friend' => [],
'user' => {},
'chatroom' => []
},
'_last_sync_time' => undef,
'_sync_running' => 0,
'asyn_ua' => bless( {
'inactivity_timeout' => 300,
'max_redirects' => 5,
'agent' => 'Mozilla/5.0 (Windows NT 6.1)
AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2062',
'cookie_jar' => $VAR1->{'ua'}{'cookie_jar
'},
'request_timeout' => 300
}, 'Weixin::UserAgent' ),
'_token' => {},
'_last_synccheck_time' => undef,
'_synccheck_interval' => 1,
'plugin_num' => 0,
'on_send_msg' => undef,
'debug' => 0,
'_watchers' => {},
'_synccheck_error_count' => 0,
'_intervals' => {},
'_receive_message_queue' => bless( {
'callback_for_get_bak' =>
sub { "DUMMY" },
'callback_for_get' => $VAR
1->{'_receive_message_queue'}{'callback_for_get_bak'},
'queue' => []
}, 'Weixin::Message::Queue'
),
'_synccheck_running' => 0,
'ua_retry_times' => 5,
'on_run' => undef,
'_sync_interval' => 1,
'cookie_jar' => $VAR1->{'ua'}{'cookie_jar'},
'client_version' => '2.0'
}, 'Weixin::Client' );
perl 面向对象
转载本文章为转载内容,我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题,欢迎原作者联系我们进行内容更正或删除文章。
上一篇:第章 perl 中的对象:
下一篇:perl bless例子
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
Perl 面向对象之基类(use base)
Perl 面向对象之基类(use base)
Perl perl 数组 多继承 面向对象 -
1746_Perl中面向对象的目录处理模块
更为重要的是,这个瘦箭头看上去比较顺眼,这种描述的方式可以让我更多地去考虑做什么而不用再费脑子不断地去构造拼接算法或
perl 开发语言 Perl 面向对象 -
Perl 教学 面向对象编程
介绍如何使用Perl的面向对象编程(OOP)特性及如何构建对象,还包括继承、方法重载和数据封装等内容。
perl cocoa java 数组 构造函数