<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();
欢迎一起交流
转载于:https://www.cnblogs.com/zhaoyangjian724/p/6200001.html