[perl] Simple ICQ bot

Discussion in 'PHP' started by eLWAux, 19 Jan 2009.

  1. bons

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

    Joined:
    20 Dec 2007
    Messages:
    286
    Likes Received:
    121
    Reputations:
    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

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    811
    Reputations:
    231
    И сервер вывод в консоле подделывает(
    [​IMG]

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

    Ил-2 Banned

    Joined:
    16 Jul 2008
    Messages:
    9
    Likes Received:
    11
    Reputations:
    5
    ога, бывай
     
  4. eLWAux

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

    Joined:
    15 Jun 2008
    Messages:
    860
    Likes Received:
    616
    Reputations:
    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 - Старейшина

    Joined:
    3 Aug 2007
    Messages:
    348
    Likes Received:
    63
    Reputations:
    15
    Проверку на инвиз прикрути, я код тут кидал :) Или в ПМ скину,если надо )
     
  6. Gaus

    Gaus Member

    Joined:
    8 Feb 2009
    Messages:
    136
    Likes Received:
    36
    Reputations:
    3
    Респект! На перле еще не видел!
     
  7. SAN_i

    SAN_i New Member

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

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

    SAN_i New Member

    Joined:
    5 Mar 2010
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    И ещё, скачал ваш архив посмотреть, при распаковке выдаёт кучу ошибок, жалуется на несоотведствие контрольной суммы :(
     
  9. eLWAux

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

    Joined:
    15 Jun 2008
    Messages:
    860
    Likes Received:
    616
    Reputations:
    211
    my $oscar:shared = Net::OSCAR -> new();
    в потоках должен быть видимый..

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

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

    Joined:
    18 Oct 2009
    Messages:
    211
    Likes Received:
    67
    Reputations:
    34
    у мну так же выдает что архив битый.
     
  11. dpawson

    dpawson New Member

    Joined:
    18 Apr 2010
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    архив реально битый... у кого есть бот залейте заново плизз..
     
  12. Никoлaй

    Никoлaй New Member

    Joined:
    30 Dec 2010
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    Да уж, архив и впрямь битый, перезалейте плз! :)
     
  13. Kuteke

    Kuteke Banned

    Joined:
    26 Jun 2010
    Messages:
    179
    Likes Received:
    26
    Reputations:
    6
    Мде... По вашему будет работать?
    Первый пост 19.01.2009, 21:42

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

    Никoлaй New Member

    Joined:
    30 Dec 2010
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0

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

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

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