[root@wx03 lib]# ls -ltrtotal 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();欢迎一起交流