LXFDVD - Журнал Linux Format

Программирование Учебник
личный IRC-бот
$x = 64;
if ($x == 64) {
print “Yep, x is 64!\n”;
}
И, наконец, подпрограммы (функции) объявляются просто командой
sub:
sub saystuff {
print “This is saystuff!\n”;
}
saystuff();
Таковы «колесики и винтики» программирования на Perl – все, что
нам нужно, чтобы начать писать IRC-бота!
Установка
Воспользуемся специальным модулем расширения языка Perl Net::IRC,
предоставляющим интерфейс для протокола IRC – тогда нам не придется
писать тонны кода для работы с сокетами и соединениями. Вместо
этого мы попросим Net::IRC позаботиться о сетевых взаимодействиях, а
сами будем дрессировать бота: пусть делает то, что нам нужно.
Вы можете найти Net::IRC с помощью своего менеджера пакетов
(он называется perl-irc или net.pm или как-то вроде этого). А не найдете,
не беда: собрать его из исходных текстов проще простого [даже
термин «собрать» здесь избыточен: Net::IRC написан на Perl, так что
речь идет просто о копировании его в нужный каталог, – прим.ред.].
Зайдите на сайт http://search.cpan.org/dist/Net-IRC/ или откройте раздел
Development/Net-IRC нашего DVD (первая сторона) и скопируйте
файл Net-IRC-0.75.tar.gz.
Распакуйте архив, зайдите в образовавшийся каталог и введите
команды:
perl Makefile.PL
make
make install
Последнюю из них нужно выполнять с правами администратора.
Она установит модуль Net::IRC, и программа, которую мы напишем,
сможет его применить!
Далее создадим две учетных записи для IRC: первая – для вас,
вторая – для бота (если вы завсегдатай IRC, то первая у вас уже есть).
Это важный этап, поскольку из-за борьбы со спамом на многих IRCсерверах
пользователь должен зарегистрироваться, чтобы иметь возможность
отправлять приватные сообщения другим участникам чата.
Зайдите в IRC и переключитесь в вашего обычного пользователя.
Если вы еще не зарегистрированы, введите такую команду:
/msg nickserv register
( замените на подходящий пароль). Примеры команд приведены
для серверов Freenode, в других сетях они могут отличаться.
Теперь ваш пользователь зарегистрирован на сервере IRC – то есть
никто другой это имя не отберет. Сказать IRC-серверу, кто вы такой,
можно с помощью команды:
/msg nickserv identify
Нужно также зарегистрировать как пользователя нашего, пока
нерожденного, бота. Переключитесь в другого пользователя и задайте
ему пароль таким образом:
/nick UltraCoolLXFBot
/msg nickserv register thisismypassword
Конечно, можно взять другое имя пользователя и пароль, но
запомните их, ведь они понадобятся коду нашего бота! Итак, мы завели
две зарегистрированные учетные записи, себе и боту.
Покажи мне код
Мы готовы к запуску бота. Вот его код. Его не придется набирать вручную:
он приведен на нашем DVD в разделе Magazine/Perl (файл bot1.
pl). Но прежде чем запускать бота, не мешает просмотреть код и его
описание...
use Net::IRC;
$server = ‘irc.freenode.net’;
$channel = ‘#blergh’;
$botnick = ‘MegaMikeBot’;
$password = ‘foobar’;
$botadmin = ‘M-Saunders’;
$irc = new Net::IRC;
$conn = $irc->newconn(Nick => $botnick,
Server => $server, Port => 6667);
$conn->add_global_handler(‘376’, \&on_connect);
$conn->add_global_handler(‘disconnect’, \&on_disconnect);
$conn->add_global_handler(‘kick’, \&on_kick);
$conn->add_global_handler(‘msg’, \&on_msg);
$irc->start;
sub on_connect {
$self = shift;
$self->privmsg(‘nickserv’, “identify $password”);
$self->join($channel);
$self->privmsg($channel, “Lo! I’m just a silent bot.”);
}
sub on_disconnect {
$self = shift;
$self->connect();
}
sub on_kick {
$self = shift;
$self->join($channel);
Первая версия
бота: по нашей
просьбе он выдает
информацию
о времени работы
системы.
Но он способен
на большее...
Январь 2008 Linux Format 83