use lib 'D:360安全浏览器下载pfwx-masterpfwx-masterlib';
use Weixin::Client;
use Data::Dumper;
my $client = Weixin::Client->new(debug=>0);
my $xx= Dumper($client);
print $xx;
print "
"
use Weixin::Client; 对应的D:360安全浏览器下载pfwx-masterpfwx-masterlibWeixin
cat Client.pm
C:UsersAdministratorDesktopperl 大骆驼黑豹>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' );