使用 Perl 制作的 IRC 机器人的一些简单错误

Question

我正在遵循一个名为 Programming IRC Bots In Perl 的教程，为 Abjects 服务器上的频道制作一个简单的 IRC 机器人，问题是我遇到了一些奇怪的错误。看一下：

Nathan-Camposs-MacBook-Pro:桌面 Nathan$ ./bot.pl
./bot.pl：第 1 行：使用：找不到命令
./bot.pl：第 4 行：我的：找不到命令
./bot.pl：第 8 行：意外标记附近出现语法错误 ('
./bot.pl: 第 8 行：my $conn = $irc->newconn('
Nathan-Camposs-MacBook-Pro：台式机 Nathan$

使用此代码：

use Net::IRC;

# create the IRC object
my $irc = new Net::IRC;

# Create a connection object.  You can have more than one "connection" per
# IRC object, but we'll just be working with one.
my $conn = $irc->newconn(
 Server   => shift || 'summer.abjects.net',
 # Note: IRC port is normally 6667, but my firewall won't allow it
 Port  => shift || '6667',
 Nick  => 'iBot',
 Ircname  => 'I\'ve bee built by iNathan!',
 Username => 'iBot'
);

# We're going to add this to the conn hash so we know what channel we
# want to operate in.
$conn->{channel} = shift || '#MobilePassion';

sub on_connect {

 # shift in our connection object that is passed automatically
 my $conn = shift;

 # when we connect, join our channel and greet it
 $conn->join($conn->{channel});
 $conn->privmsg($conn->{channel}, 'Hello everyone!');
 $conn->{connected} = 1;
}

# The end of MOTD (message of the day), numbered 376 signifies we've connect
$conn->add_handler('376', \&on_connect);

sub on_join {

 # get our connection object and the event object, which is passed
 # with this event automatically
 my ($conn, $event) = @_;

 # this is the nick that just joined
 my $nick = $event->{nick};
 # say hello to the nick in public
 $conn->privmsg($conn->{channel}, "Hello, $nick!");
}

$conn->add_handler('join', \&on_join);

$irc->start();

我应该做什么来纠正这个问题？

Answer 1

#!/usr/bin/perl

在顶部。 /bin/sh 通常不理解 Perl，这就是您所看到的。

另外，我会推荐：

use strict;
use warnings;

Answer 2

另外，我确信您以前在某处见过和听说过这一点，但帮自己一个忙，不要使用 Net::IRC...它已经死在水中一段时间​​了自我宣传7年。

新的建议是使用 POE::Component::IRC 或某些变体。虽然 POE::Component::IRC 为您提供了对机器人功能的最大控制、灵活性和可见性，但更简单的方法是 Bot::BasicBot。

希望有帮助。

Answer 3

参考 http://freetexthost.com/wdmcihuvxx，您缺少 Net 库。根据您使用的操作系统，您可以通过多种方式获取它 - 或者仅使用 CPAN。