我怎样才能让我的Perl Jabber机器人成为一个事件
我试图制作一个Jabber机器人，并且在等待消息时保持它运行时遇到问题。 我如何让脚本连续运行？ 我曾尝试调用一个具有while循环的子例程，理论上，我设置该子例程来检查任何消息并作出相应的反应，但我的脚本不是那样做的。
这是我的来源：http：//pastebin.com/03Habbvh
# set jabber bot callbacks
$jabberBot->SetMessageCallBacks(chat=>&chat);
$jabberBot->SetPresenceCallBacks(available=>&welcome,unavailable=>&killBot);
$jabberBot->SetCallBacks(receive=>&prnt,iq=>&gotIQ);
$jabberBot->PresenceSend(type=>"available");
$jabberBot->Process(1);
sub welcome
{
print "Welcome!n";
$jabberBot->MessageSend(to=>$jbrBoss->GetJID(),subject=>"",body=>"Hello There!",type=>"chat",priority=>10);
&keepItGoing;
}
sub prnt
{
print $_[1]."n";
}
#$jabberBot->MessageSend(to=>$jbrBoss->GetJID(),subject=>"",body=>"Hello There! Global...",type=>"chat",priority=>10);
#$jabberBot->Process(5);
#&keepItGoing;
sub chat
{
my ($sessionID,$msg) = @_;
$dump->pl2xml($msg);
if($msg->GetType() ne 'get' && $msg->GetType() ne 'set' && $msg->GetType() ne '')
{
my $jbrCmd = &trimSpaces($msg->GetBody());
my $dbQry = $dbh->prepare("SELECT command,acknowledgement FROM commands WHERE message = '".lc($jbrCmd)."'");
$dbQry->execute();
if($dbQry->rows() > 0 && $jbrCmd !~ /^insert/si)
{
my $ref = $dbQry->fetchrow_hashref();
$dbQry->finish();
$jabberBot->MessageSend(to=>$msg->GetFrom(),subject=>"",body=>$ref->{'acknowledgement'},type=>"chat",priority=>10);
eval $ref->{'command'};
&keepItGoing;
}
else
{
$jabberBot->MessageSend(to=>$msg->GetFrom(),subject=>"",body=>"I didn't understand you!",type=>"chat",priority=>10);
$dbQry->finish();
&keepItGoing;
}
}
}
sub gotIQ
{
print "iqn";
}
sub trimSpaces
{
my $string = $_[0];
$string =~ s/^s+//; #remove leading spaces
$string =~ s/s+$//; #remove trailing spaces
return $string;
}
sub keepItGoing
{
print "keepItGoing!n";
my $proc = $jabberBot->Process(1);
while(defined($proc) && $proc != 1)
{
$proc = $jabberBot->Process(1);
}
}
sub killBot
{
print "killingn";
$jabberBot->MessageSend(to=>$_[0]->GetFrom(),subject=>"",body=>"Logging Out!",type=>"chat",priority=>10);
$jabberBot->Process(1);
$jabberBot->Disconnect();
exit;
}
POE有一些相当不错的事件框架。 我不知道Jabber（POE :: Component :: Jabber）有多好，但它可能值得一看。
AnyEvent :: XMPP是非常全面的，并且，因为它使用AnyEvent，可以在支持循环（AnyEvent自己的，Event，EV，Tk，Glib / Gtk，甚至是POE）的任何事件驱动的应用程序中运行。
我认为你可以通过这样做让你的例子工作：
0 while $jabber->Process
话虽如此，我强烈建议使用适当的事件处理框架，如AnyEvent（我个人最喜欢的）或POE（传统选择）。
链接地址: http://www.djcxy.com/p/94045.html