这是一个示例脚本。当我按下 Ctrl+C 时,机器人退出了 IRC,但它会在一段时间后重新连接。如何正确关闭机器人?
#!/usr/bin/perl
package main;
my $bot = Perlbot->new (server => 'irc.dal.net');
$SIG{'INT'} = 'Handler';
$SIG{'TERM'} = 'Handler';
sub Handler {
print "\nShutting down bot...\n";
$bot->shutdown('Killed.');
};
$bot->run;
package Perlbot;
use base qw(Bot::BasicBot);
sub connected {
my $self = shift;
$self->join('#codetestchan');
}
最佳答案
我已经接管了 Bot::BasicBot 的维护工作,从 0.82 版开始,您可以使用 $bot->shutdown($quit_message)
正确关闭它。
关于perl - 如何正确关闭 Bot::BasicBot 机器人(基于 POE::Component::IRC)?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/2471373/