Модераторы: korob2001, ginnie

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> список каналов irc сервера, список каналов irc сервера 
:(
    Опции темы
demond
Дата 26.9.2008, 20:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 20.2.2008

Репутация: нет
Всего: нет



Здравствуйте. подскажите, как использую Net::IRC получить список каналов на сервер?
PM MAIL   Вверх
arto
Дата 29.9.2008, 12:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



команда "LIST", обработчик на 322.

PM MAIL ICQ   Вверх
demond
Дата 30.9.2008, 10:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 20.2.2008

Репутация: нет
Всего: нет



а можно по подробнее? smile
PM MAIL   Вверх
arto
Дата 30.9.2008, 11:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



в дистрибутиве Net::IRC присутствует irctest, там показано.
PM MAIL ICQ   Вверх
noneg
Дата 3.2.2011, 18:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 21.1.2011

Репутация: нет
Всего: нет



Подскажите как это сделать (без Net:IRC)
1.Получить списокканалов  и записать в фаил.
или
2.Получить список и организовать заход на каждый канал.


Получаю список так send ($socket, "LIST \r\n",332);

не знаю как реализовать заход на каналы (список сам нигде же не выводится)
ну или запись в фаил.
PM MAIL   Вверх
arto
Дата 4.2.2011, 08:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



# print -l "NICK asdfgh" "USER asdfgh 1 1 :asdfgh" "LIST" "QUIT" | nc irc.run.net 6667
...
:irc.run.net 222 asdfgh NONE :is now your codepage
:irc.run.net 322 asdfgh #skinhead 1 :
:irc.run.net 322 asdfgh #M@NGO 1 :
:irc.run.net 322 asdfgh #Genie 1 :Канал  "Хитрых замут".^O^O^C  ^C0,4 Здесь обсуждаются  картинки от приходов ;)^C ^C13 http://tomsk.fm/watch/21219
:irc.run.net 322 asdfgh #ul-soc 1 :Чат глобальных проблем  МТиСР Ульяновской области
:irc.run.net 322 asdfgh #bppp 1 :
:irc.run.net 322 asdfgh #GetFrag 1 :^C9`%^C0,9%, ^C3,9`%^C9,3%, ^C1,3`%^C3,1%,^C9 GetFrag! dimqa murd pasha meGycuk Part1zan ^C3,1`%^C1,3%, ^C9,3`%^C3,9%, ^C0,9`%^C^C9%,
:irc.run.net 322 asdfgh #ulll 1 :
:irc.run.net 322 asdfgh #koj 1 :
:irc.run.net 322 asdfgh #EnDeDeLeNDe 1 :
...
PM MAIL ICQ   Вверх
noneg
Дата 4.2.2011, 14:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 21.1.2011

Репутация: нет
Всего: нет



не понял что это и куда...(
PM MAIL   Вверх
arto
Дата 4.2.2011, 15:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



RFC 1459
man nc netcat
можно и telnet'ом
PM MAIL ICQ   Вверх
noneg
Дата 8.2.2011, 15:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 21.1.2011

Репутация: нет
Всего: нет



Код

open (F, "kanals.txt");
while($kanals=<F>){
send ($socket, "JOIN #$kanals \r\n",0)}; - ноль

в kanals.txt лежат 

chanel1
chanel2

Бот заходит нормально...но когда больше каналов в списке, его выкидывает exec flood.

send ($socket, "JOIN #$kanals \r\n",322)}; 
когда пишу 322, он вообще никуда не заходит..даже на 1 канал..
как сделать что бы он мог заходить на большое число каналов.

PM MAIL   Вверх
noneg
Дата 11.2.2011, 01:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 21.1.2011

Репутация: нет
Всего: нет



еще такой вапрос как можно спарсить ники сидящих на канале?
PM MAIL   Вверх
arto
Дата 11.2.2011, 08:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



а какая именно проблема?
PM MAIL ICQ   Вверх
noneg
Дата 12.2.2011, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 21.1.2011

Репутация: нет
Всего: нет



нужно отослать каждому на канале /ctcp (просто на канал отослать не нада, именно каждому по нику)


  
Код

  $socket->send ("JOIN $kana\r\n"); 
  $socket->send ("NAMES $kana \r\n"); - #/names выводит все ники на канале ввиде irc.serv.ru: nick1 nick2 (как бы их засунуть куда для того что бы построчно отсылать ctpc)
  if ($socket=~/(.*):(.*)/) {  - тут явно сокет не подходит...а хотя хз..
  $socket->send ("NOTICE $kana $2 :lol\r\n");} 
  $socket->send ("PART $kana\r\n");
 }
close F;
 
 




PM MAIL   Вверх
arto
Дата 13.2.2011, 14:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



вы должны прочитать строку из сокета
PM MAIL ICQ   Вверх
noneg
Дата 23.2.2011, 11:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 21.1.2011

Репутация: нет
Всего: нет



Есть два текстовика
-----в первом 
word
word1
word2
-----во втором
slovo
slovo1
slovo2

как сдлеать что бы в текстовике сохранялось

word:slovo
word1:slovo1
word2:slovo2
PM MAIL   Вверх
arto
Дата 23.2.2011, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



что такое "текстовик" ?
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0556 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.