[perl] Simple ICQ bot

Обсуждение в разделе «PHP», начал(-а) eLWAux, 19.01.2009.

  1. bons

    bons Elder - Старейшина

    Регистрация:
    20.12.2007
    Сообщения:
    286
    Одобрения:
    121
    Репутация:
    21
    хи, фаллометрия...
    По делу: у меня скрипт пишет при запуске после приветствия
    Code:
    Bad arg length for Socket::pack_sockaddr_in, length is 0, should be 4 at /usr/lib/perl/5.8/Socket.pm line 201.
    ОС - Debian Linux
     
  2. Kaimi

    Kaimi Well-Known Member

    Регистрация:
    23.08.2007
    Сообщения:
    1 732
    Одобрения:
    811
    Репутация:
    231
    И сервер вывод в консоле подделывает(
    [​IMG]

    Все, не буду больше спорить, Ил-2 - бог программирования на Perl, а я вообще не достоин касаться клавиатуры со своими знаниями. В топку программирование, пойду лучше сэмки погрызу и жигуля выпью
     
    _________________________
  3. Ил-2

    Ил-2 Banned

    Регистрация:
    16.07.2008
    Сообщения:
    9
    Одобрения:
    11
    Репутация:
    5
    ога, бывай
     
  4. eLWAux

    eLWAux Elder - Старейшина

    Регистрация:
    15.06.2008
    Сообщения:
    860
    Одобрения:
    616
    Репутация:
    211
    !gogo parcer

    'google' парсер
    плагин мне стал нужен во время экзамена,
    когда в книжке небило теории,
    и в телефоне много траффика)


    [​IMG]

    Парсер поисковой системи gogo.ru
    (аналог google :) )

    для установки плагина нужно отредактировать plugins.ini,
    и ДОБАВИТЬ там строчку:
    !google;google.pl

    !gogo <ваш запрос>
    в ответ увидете title сайта и ссилку на него!

    http://multi-up.com/54936
    http://openfile.ru/192253/
    http://depositfiles.com/files/0ijxnfv8w
    http://rapidshare.com/files/193305656/gogo.zip.html
    http://letitbit.net/download/823ac4924150/gogo.zip.html
    http://fileshare.in.ua/1841510
     
  5. biophreak

    biophreak Elder - Старейшина

    Регистрация:
    3.08.2007
    Сообщения:
    348
    Одобрения:
    63
    Репутация:
    15
    Проверку на инвиз прикрути, я код тут кидал :) Или в ПМ скину,если надо )
     
  6. Gaus

    Gaus Member

    Регистрация:
    8.02.2009
    Сообщения:
    136
    Одобрения:
    36
    Репутация:
    3
    Респект! На перле еще не видел!
     
  7. SAN_i

    SAN_i New Member

    Регистрация:
    5.03.2010
    Сообщения:
    2
    Одобрения:
    0
    Репутация:
    0
    Здравствуйте, я тоже пишу бота на перле и хочу чтоб отправка сообщений производилась в отдельном потоке. Я создал очередь, поток. Но вот у меня вопрос как мне в этот поток передать переменную $oscar, которую я обьявляю и инициализирую в главном потоке так: $oscar = Net::OSCAR -> new();
    Это нужно для того, чтобы отправлять сообщения.

    ПС. Использую оскар.
     
  8. SAN_i

    SAN_i New Member

    Регистрация:
    5.03.2010
    Сообщения:
    2
    Одобрения:
    0
    Репутация:
    0
    И ещё, скачал ваш архив посмотреть, при распаковке выдаёт кучу ошибок, жалуется на несоотведствие контрольной суммы :(
     
  9. eLWAux

    eLWAux Elder - Старейшина

    Регистрация:
    15.06.2008
    Сообщения:
    860
    Одобрения:
    616
    Репутация:
    211
    my $oscar:shared = Net::OSCAR -> new();
    в потоках должен быть видимый..

    выдаёт кучу ошибок? это проблема архиватора вашего.
    несоотведствие контрольной суммы с чем?
     
  10. wkar

    wkar Elder - Старейшина

    Регистрация:
    18.10.2009
    Сообщения:
    211
    Одобрения:
    67
    Репутация:
    34
    у мну так же выдает что архив битый.
     
  11. dpawson

    dpawson New Member

    Регистрация:
    18.04.2010
    Сообщения:
    5
    Одобрения:
    0
    Репутация:
    0
    архив реально битый... у кого есть бот залейте заново плизз..
     
  12. Никoлaй

    Никoлaй New Member

    Регистрация:
    30.12.2010
    Сообщения:
    2
    Одобрения:
    0
    Репутация:
    0
    Да уж, архив и впрямь битый, перезалейте плз! :)
     
  13. Kuteke

    Kuteke Banned

    Регистрация:
    26.06.2010
    Сообщения:
    179
    Одобрения:
    26
    Репутация:
    6
    Мде... По вашему будет работать?
    Первый пост 19.01.2009, 21:42

    P.S. Не набивайте посты.
    P.S.S. Можно удалить данный пост...
     
  14. Никoлaй

    Никoлaй New Member

    Регистрация:
    30.12.2010
    Сообщения:
    2
    Одобрения:
    0
    Репутация:
    0

    Прошло всего два года :)

    Я хочу написать своего бота для личных целей на перле. Т.к. нет особого желания изобретать велосипед хотелось бы посмотреть готовые варианты на эту тему. Если данный вариант не работает подпилю и покручу может быть это именно то что мне нужно, понравилась простота добавления модулей и стандартизация.
    Для меня не важно количество постов, возраст уже не тот да и почти за год я б накрутил постов.
    Более в интернете я не нашел его (данного бота) следов :)

    П.С. Автору написал в ЛС но похоже он редкий гость... :(
     
    #34 Никoлaй, 31.10.2011
    В последний раз редактировалось: 31.10.2011