информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Страшный баг в WindowsSpanning Tree Protocol: недокументированное применениеЗа кого нас держат?
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Очередное исследование 19 миллиардов... 
 Оптимизация ввода-вывода как инструмент... 
 Зловреды выбирают Lisp и Delphi 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
если вы видите этот текст, отключите в настройках форума использование JavaScript
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
[Perl] perl клиент ICQ 12.12.01 03:43  Число просмотров: 1153
Автор: NiFi... <NiFiGaSebe!> Статус: Member
<"чистая" ссылка>
У тебя модуль Net::ICQ установлен?
<programming>
[Perl] perl клиент ICQ 11.12.01 23:41  
Автор: Sergei A. Merkulov Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Вот я написал такой скрипт:

#!/usr/bin/perl

use Net::ICQ;
$uin = "666";
$password="666";

$icq = Net::ICQ->new($uin, $password);
$icq->connect();

$params = {'uin' => 64432299};

$icq->send_event('CMD_INFO_REQ', $params);
$icq->add_handler('SRV_INFO_REPLY', &on_msg);

sub on_msg {
my($details) = @_;
$nick= "$details->{nick}\n";
print $nick;
}

$icq->start();

Этот скрипт должен выводить НИК владельца UIN'а. А теперь вопрос: какого @#$а он не работает? Ничего не выводит и все. (ник указан)
[Perl] perl клиент ICQ 12.12.01 03:43  
Автор: NiFi... <NiFiGaSebe!> Статус: Member
<"чистая" ссылка>
У тебя модуль Net::ICQ установлен?
[Perl] perl клиент ICQ 12.12.01 13:49  
Автор: Sergei A. Merkulov Статус: Незарегистрированный пользователь
<"чистая" ссылка>
> У тебя модуль Net::ICQ установлен?
КОНЕЧНО!!!
[Perl] perl клиент ICQ 12.12.01 20:23  
Автор: NiFi... <NiFiGaSebe!> Статус: Member
<"чистая" ссылка>
> > У тебя модуль Net::ICQ установлен?
> КОНЕЧНО!!!
Ну тогда, самое лучшее, что я могу посоветовать, это подписаться на конфу от Net::ICQ, и задать там вопрос. Там сидит народ. который очень хорошо разбирается в этом модуле, и который с удовольствием ответит на твои вопросы...

http://www.sourceforge.net/projects/neticq
1




Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2025 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach