Perl로 만든 IRC 봇의 몇 가지 간단한 오류

Question

Abjects 서버에서 내 채널에 간단한 IRC 봇을 만들려면 Programming IRC Bots In Perl이라는 자습서를 따르고 있습니다. 문제는 이상한 오류가 발생한다는 것입니다.
./bot.pl 발견되지 명령 행 1 :

나단 Camposs - 맥북 프로 : 데스크탑 나단 $의 ./bot.pl
./bot.pl 사용 살펴 보자 : 라인 4 : 내 : 명령을 찾을 수 없습니다
./bot.pl : 행 8 : 예기치 않은 토큰 ('
./bot.pl: line 8: 내 $ CONN = $ irc-> newconn ('
나단 Camposs - 맥북 - 프로 근처의 구문 오류 : 데스크탑 나단 $

다음 코드 사용

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

덧붙여, 어딘가 전에 이것을보고 들었지만 자신에게 호의를 베풀지 마십시오. Net::IRC ... 7 년 동안 자기 광고를 위해 물에서 죽었습니다.

POE::Component::IRC 또는 일부 변형을 사용하는 것이 좋습니다. POE::Component::IRC은 봇 기능에 대한 제어, 유연성 및 가시성을 제공하지만 훨씬 쉬운 방법은 Bot::BasicBot입니다.

희망이 있습니다.

Answer 2

#!/usr/bin/perl 

상단에./bin/sh는 일반적으로 Perl을 이해하지 못한다.

또한, 나는 추천 :

use strict; 
use warnings; 

Answer 3

을 기준으로 , 당신은 인터넷 라이브러리를 놓치고있어. 어떤 OS를 사용하고 있는지에 따라 여러 가지 방법이 있습니다. CPAN을 사용하기 만하면됩니다.