基于perl面向对象开发的微信机器人

<pre name="code" class="html">[root@wx03 lib]# ls -ltr
total 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 root root 1742 May 21 18:40 login.pm
-rw-r--r-- 1 root root  369 May 21 22:38 eventloop.pm
-rw-r--r-- 1 root root  974 May 22 12:11 Client.pm
-rw-r--r-- 1 root root  401 May 22 13:54 send_text_msg.pm
-rw-r--r-- 1 root root 4649 May 22 17:07 synccheck.pm
-rw-r--r-- 1 root root 2137 May 22 17:27 sync.pm
[root@wx03 lib]# pwd
/root/scanwx/lib
[root@wx03 lib]# cat /root/wx/scan.pl
use lib '/root/scanwx/lib';
use Client;
use Data::Dumper;
my $client=Client->new();

$client->get_qrcode();
$client->blogin();
$client->login();
$client->init();

$client->on_receive_msg(sub {$client->synccheck});
#$client->run();

欢迎一起交流