我的基于 Bot::BasicBot 的 Perl 机器人仅连接但不执行其他操作

编程问答 2022-05-10

问题描述

我正在尝试使用 Bot::BasicBot 包制作一个连接到 IRC 的 perl 机器人，但即使是最简单的子程序似乎也不会对机器人的行为产生影响。我是 Perl 编程的初学者，我可能忘记了一些非常明显的东西，但我无法在网上找到。 这是我的代码：

#!/usr/bin/env perl
use strict;
use warnings;
use Bot::BasicBot;
package main;
use base qw( Bot::BasicBot );

my $bot = Bot::BasicBot->new(
server    =>    "server",port      => '6667',channels  => ['#channel'],nick      => 'Bot',name      => 'Bot',)->run();

sub help {"I kinda work"};
sub connected {
  print "I am connected !";
}

机器人正确连接到我指定的服务器和频道（至少我可以在连接的用户列表中看到机器人），但对机器人说帮助返回“对不起，这个机器人没有交互式帮助。” connected 子例程也不起作用，或者至少不会在标准输出上输出消息。我不知道如何进行这项工作 - 在线文档很少，我希望你们能提供一些帮助。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

botschatbotircperl