Форум АНТИЧАТ - поиск Perl+icq

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - поиск Perl+icq_bot (https://forum.antichat.xyz/showthread.php?t=84286)

поиск Perl+icq_bot

Исчу icq bot'a на perl'е или python'е
поделитесь люди добрые)
с меня +

Например тут http://search.cpan.org/dist/Net-OSCAR/lib/Net/OSCAR.pm

Выкладывал тут с примитивными ф-иями, бот юзает все тот же Net::OSCAR, простейшего бота на нем написать,который будет отвечать "Привет" на любое сообщение - 10 строчек максимум)
Так же делал ICQ2IRC гейт на базе него-же( http://icq2irc.googlecode.com )
Вот пример бота

Код:

#!/usr/bin/perl -s

use strict;

use warnings;

use diagnostics;

use Net::OSCAR;

my $uin = 123456;

my $passwd = 'qwerty';

my $adminuin = 654321; ## Your UIN

my $icq = Net::OSCAR->new;

$icq->set_callback_im_in(\&in) or die '[ERROR] [Cannot set callback] [$!]';

$icq->signon($uin, $passwd) or die '[ERROR] [Cannot sign on] [$!]';

$icq->do_one_loop while (not $icq->is_on);

$icq->do_one_loop while ($icq->is_on);

sub in {

        my($oscar, $sender, $message, $is_away) = @_;

        print "$sender: $message\n";

        $oscar->signoff() if ($message eq '!quit'  and $sender eq $adminuin);

        $oscar->send_im($sender,`uptime`) if ($message eq '!uptime' and $sender eq $adminuin);



}

>>biophreak

http://img222.imageshack.us/img222/4...rroraj7.th.jpg

see up....
ето типо он OSCAR подключить на может?
шо делатЬ?))

KENNY_McCORMICK ты модуль то подключи

Цитата:

Сообщение от Gifts

KENNY_McCORMICK ты модуль то подключи

ppm install Net-OSCAR так?

perl -V покажи
А вообще что-то с прототипами,видимо когда сокет создается...неблокирующийс� � создать не может =\
Под виндой даже не тестил оскар)

Цитата:

'[ERROR] [Cannot set callback] [$!]'

тут наверно требуются не одинарные кавычки , а двойные , т.к. не будет интерполяции и спец. символ $! не чего интересного не скажет.

Да,ты прав,спс,за 2 минуты писал)))