perl 面向对象

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' );