Здравствуйте! Сегодня я вам расскажу, как написать простенького irc бота на PERL.
Сам недавно только взялся за изучение этого языка. Как то раз скачал книгу Клинтон Пирс - "Освой самостоятельно Perl за 24 часа"
Скажу сразу - книга так себе, только основы (Но мне как раз это и нужно было)
И вот, когда я дошел до модулей, наткнулся на IO::Socket. Тем вечером я еще сидел в ирке, и подумал: "А почему бы не попробовать..."
Ну вот, лирическое отступление кончилось =) Начнем!
И так, что нам понадобится:
ActivePerl, подключение к интернету, mIRC(или другой клиент для IRC), минимальные знания PERL, а также документация по протоколу IRC со стороны клиента (я брал ]]>http://tools.ietf.org/html/rfc2812)]]>
Собственно вот... Открываем текстовый редакор, пишем строчки:
#!/usr/bin/perlДумаю, тут комментировать ненадо, но все таки. Эта строка указывает путь к интерпритатору PERL.
Подключаем модули:
use strict; use IO::Socket;Подключили =)
my $server = "irc.inattack.ru"; my $port=6667; my $chanel = "#inattack"; my $nick = "MIKE"; my $ident = "mike"; my $name="Майк";В переменной $server хранится адрес irc сервера (вписываем нужный)
В переменной $port хранится порт irc сервера (вписываем нужный)
И в переменной $chanel хранится адрес канала
В переменной $nick хранится Ник бота
В переменной $ident хранится Идент бота
В переменной $name хранится имя бота (увидите при хуизе)
Идем дальше:
my $socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp");в этой строке создаем новый объект IO::Socket::INET и ссылка на него присваевается переменной $socket
Ну вот, переменные мы задали, начало есть =)
Теперь идем к документации, видим, что первым делом мы должны послать
Цитата
Command: NICK
Parameters: <nickname>
Parameters: <nickname>
print $socket "NICK $nick\r\n";В переменную $socket вы вводим NICK $nick, \r\n - перевод каретки на следущую строку (то же что и Enter)
Идем дальше, следущей командой должна быть:
Цитата
Command: USER
Parameters: <user> <mode> <unused> <realname>
Parameters: <user> <mode> <unused> <realname>
print $socket "USER $ident 8 * :$name\r\n";Что далее? Далее мы заходим на нужный нам канал, что говорит документация?
Цитата
Command: JOIN
Parameters: ( <channel> *( "," <channel> ) [ <key> *( "," <key> ) ] )
/ "0"
Parameters: ( <channel> *( "," <channel> ) [ <key> *( "," <key> ) ] )
/ "0"
print $socket "JOIN $chanel\r\n";
Готово, бот законнектился на ирк сервер, зашел на канал, НО, спустя какое то время его выкинет по причине (Ping timeout)
Этого нам конечно же не нужно. По протоколу, спустя какое то время, сервер на посылает запрос вида "PING : irc.site.com", а нам надо отправить ответ PONG.
Идем к документации, видим:
Цитата
Command: PONG
Parameters: <server> [ <server2> ]
Parameters: <server> [ <server2> ]
while (my $body = <$socket>) { chop $body; if ($body =~ /^PING(.*)$/i) { print $socket "PONG $1\r\n"; } }Готово! Теперь наш бот умеет коннектиться к серверу, заходить на канал и "не вылетать" 8)
Но все равно чего-то не хватает, правда? =)
Давайте сделаем, чтоб при заходе на канал, он говорил привет:
print $socket ("PRIVMSG $chanel : Привет всем =)\r\n");Отлично! Но бот без команд, это не бот, так? =)
Приведу пример некоторых: (пишем в цикл while() )
if ($body =~ /^.*!yandex(.*)$/i) { print $socket ("PRIVMSG $chanel Сам ищи, я не лох :-P\r\n"); } if ($body =~ /^.*!bye(.*)$/i) { print $socket ("QUIT\r\n"); }Собственно вот он, самый простой бот готов! =)
Основы я вам дал, дальше давайте сами. Прошу сильно не критиковать, ибо только недавно взялся за изучение перл.
С радостью выслушаю вашу критику и замечания.
Ниже приведу весь исходник бота.
#!/usr/bin/perl use strict; use IO::Socket; my $server = "irc.inattack.ru"; my $port=6667; my $chanel = "#inattack"; my $nick = "MIKE"; my $ident = "mike"; my $name="Майк"; my $socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp") or die "lol"; print $socket "NICK $nick\r\n"; print $socket "USER $ident 8 * :$name\r\n"; print $socket "JOIN $chanel\r\n"; print $socket ("PRIVMSG $chanel : Рад вновь увидеть вас всех!!\r\n"); while (my $body = <$socket>) { chop $body; if ($body =~ /^PING(.*)$/i) { print $socket "PONG $1\r\n"; } if ($body =~ /^.*!yandex(.*)$/i) { print $socket ("PRIVMSG $chanel Сам ищи, я не лох :-P\r\n"); } if ($body =~ /^.*!bye(.*)$/i) { print $socket ("QUIT\r\n"); } }Спасибо за внимание!