Приветствую вас программисты, вот прочитал книгу "Освой перл за 24 часа", конечно мыло что еще понимаю, сижу с английской документацией пытаюсь понять что к чему. Но дело не в этом, вот написал irc бота на перле все проверил все работает, потом снова решил второй написать все делал точно так же, но бот не хотел запускаться, проверял его полностью все время орал что есть ошибка! Вот код бота может кто скажет в чем дело?
| Код |
#!/usr/bin/perl
$host="tcn.msk.solarnet.ru";
$port="6667";
$nick="Parasite";
$ident="Parasite6";
$chan="#555";
use Socket;
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'))
or die "Couldn`t create socket : $!\n";
$iaddr=inet_aton($host);
$paddr=sockaddr_in($port,$iaddr);
print "\n>> Connecting to $host:$port...\n";
connect(SOCK, $paddr)
or die "Couldn`t connect to $host:$port : $!\n";
for($i=0; $i<4; $i++){
$data=<SOCK>;
print($data);
}
print ">> Sending NICK and IDENT...\n";
send (SOCK, "NICK $nick\n", 0);
send (SOCK, "USER $ident localhost localhost :$nick\n", 0);
for($i=0; $i<10; $i++){
$data=<SOCK>;
print($data);
}
print ">> Join chanel $chan...\n";
send (SOCK, "JOIN $chan\n", 0);
while($data=<SOCK>){
print($data);
}
@part=split(/:/,$data);
if(@part[0] eq "PING "){
print ">> PONG :@part[1]\n";
send (SOCK, "PONG :@part[1]\n", 0);
}
|
Основная часть бота, обработчик событий писать пока не стал! можно еще вопросик..можно где нить найти русскую документацию по перлу а то я нет весь обсматрел и нечего не нашел! Зарание спасибо! |