Пишем простого Irc бота на Perl Пишем IRC бота на PERL Здравствуйте! Сегодня я вам расскажу, как написать простенького irc бота на PERL. Сам недавно только взялся за изучение этого языка. Как то раз скачал книгу Клинтон Пирс - "Освой самостоятельно Perl за 24 часа" Скажу сразу - книга так себе, только основы (Но мне как раз это и нужно было) И вот, когда я дошел до модулей, наткнулся на IO::Socket. Тем вечером я еще сидел в ирке, и подумал: "А почему бы не попробовать..." Ну вот, лирическое отступление кончилось =) Начнем! И так, что нам понадобится: ActivePerl, подключение к интернету, mIRC(или другой клиент для IRC), минимальные знания PERL, а также документация по протоколу IRC со стороны клиента (я брал http://tools.ietf.org/html/rfc2812) Собственно вот... Открываем текстовый редакор, пишем строчки: Code: #!/usr/bin/perl Думаю, тут комментировать ненадо, но все таки. Эта строка указывает путь к интерпритатору PERL. Подключаем модули: Code: use strict; use IO::Socket; Подключили =) Code: 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 хранится имя бота (увидите при хуизе) Идем дальше: Code: my $socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp"); в этой строке создаем новый объект IO::Socket::INET и ссылка на него присваевается переменной $socket Ну вот, переменные мы задали, начало есть =) Теперь идем к документации, видим, что первым делом мы должны послать Так и сделаем 8) Code: print $socket "NICK $nick\r\n"; В переменную $socket вы вводим NICK $nick, \r\n - перевод каретки на следущую строку (то же что и Enter) Идем дальше, следущей командой должна быть: Собственно что мы и сделаем: Code: print $socket "USER $ident 8 * :$name\r\n"; Что далее? Далее мы заходим на нужный нам канал, что говорит документация? Реализовываем: Code: print $socket "JOIN $chanel\r\n"; Готово, бот законнектился на ирк сервер, зашел на канал, НО, спустя какое то время его выкинет по причине (Ping timeout) Этого нам конечно же не нужно. По протоколу, спустя какое то время, сервер на посылает запрос вида "PING : irc.site.com", а нам надо отправить ответ PONG. Идем к документации, видим: "Шкодим" через цикл Code: while (my $body = <$socket>) { chop $body; if ($body =~ /^PING(.*)$/i) { print $socket "PONG $1\r\n"; } } Готово! Теперь наш бот умеет коннектиться к серверу, заходить на канал и "не вылетать" 8) Но все равно чего-то не хватает, правда? =) Давайте сделаем, чтоб при заходе на канал, он говорил привет: Code: print $socket ("PRIVMSG $chanel : Привет всем =)\r\n"); Отлично! Но бот без команд, это не бот, так? =) Приведу пример некоторых: (пишем в цикл while() ) Code: if ($body =~ /^.*!yandex(.*)$/i) { print $socket ("PRIVMSG $chanel Сам ищи, я не лох :-P\r\n"); } if ($body =~ /^.*!bye(.*)$/i) { print $socket ("QUIT\r\n"); } Собственно вот он, самый простой бот готов! =) Основы я вам дал, дальше давайте сами. Прошу сильно не критиковать, ибо только недавно взялся за изучение перл. С радостью выслушаю вашу критику и замечания. Ниже приведу весь исходник бота. Code: #!/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"); } } Спасибо за внимание!
1. может значение $port тоже надо писать в кавычках? 2. команды серверу должны начинаться со слеша "/"
про perldoc рассказывать даже не пытаюсь=\ Code: /^.*!yandex(.*)$/i регекс ваще не в тему... надеюсь сам разберешься почему кароче незачот
Зачем из этого делать статью?Выложил бы своего бота, кому надо переделают... А вообще для начала дай хотябы одну книгу по языку pel
>1. может значение $port тоже надо писать в кавычках? Числа можно писать без кавычек >2. команды серверу должны начинаться со слеша "/" Нет, это в мирке и др так сделано. Прочитай документацию. >регекс ваще не в тему... надеюсь сам разберешься почему Да.. ступанул =) Учу... соррь >А вообще для начала дай хотябы одну книгу по языку pel Очепятался, бывает За критику спасибо!
Раз пошел такой колинкор предлагаю заценить и это кто не видел: http://www.gfs-team.ru/?act=articles&pact=55 - Perl.Irc Bot На сайте есть исходник. Плюс немного улучшенная версия перлового бота.
В обоих статьях не увидел нормального парсинга... Code: /^:(.+?)!(.+?)@(.+?)\sPRIVMSG\s(#.+?)\s:(.+?)$/ # $1 - nick # $2 - ident # $3 - host # $4 - chan # $5 - msg text PS: perldoc Net::IRC
правильно что убрали из статей --- а так старо как мир -- но чтобы не совсем наезжали на новечка похвалю чуток =) молодца для начала нормально -- я как вспомню что сам сначала писал -- это пиздец был
Если уж использовал IO::Socket, то код можно было бы сделать более приятным, пользуясь методами send и recv, т.е. $socket->send(); Хотя не смертельно
