perl - Net::XMPP Perl 模块：这可以用来检查服务器上的聊天消息吗？

Question

我现在可以使用 perl 模块 Net::XMPP 连接到我的 jabber 服务器。现在我想知道：是否可以监视服务器是否有传入的聊天消息（不是电子邮件消息）并在收到消息时采取相应的行动？

我目前拥有的基本代码是：

#!/bin/perl -w

use strict;
use warnings;

use Net::XMPP;

my $con = new Net::XMPP::Client(); 

my $status = $con->Connect(  
hostname => 'hostnamepart',  
connectiontype => 'tcpip',  
tls => 1,
ssl_ca_path =>'path for cert');
die('ERROR: XMPP connection failed') if ! defined($status);

当我运行上面的代码时，$status 变量返回 1，我假设这意味着我连接正常。但是，现在我被卡住了！我查看了 metacpan.org 网站上的 Net::XMPP 在线文档，但无法弄清楚它是否可以做我想做的事。任何帮助表示赞赏。

标签： perlxmpp