VPF::script fo IRC connected & работа с sockets - Форум программистов

DiverD

Дата 19.3.2006, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Код


#!/usr/bin/perl 
use strict;
use IO::Socket;
use strict;
use warnings;
my $server = "127.0.0.1";
my $nick = "bot";
my $user = "Bofn localhost localhost: Bofn";
my $src_port = '4546';
my $dst_port = '6667';
my $channel = "#demo";
my $sock = new IO::Socket::INET(PeerAddr => $server,
                LocalPort => $src_port,
                                PeerPort => $dst_port,
                                Proto => 'tcp') or
                                die "Can't connect\n";
print $sock "nick $nick\r\n";
print $sock "user $user \r\n";

while (my $input = <$sock>) {
    unless(my $i = 0) {
    print $sock "join $channel\r\n";
    $i = 1;
    if($input =~ /test/) {
    print $sock "msg\r\n"; #
    }
    }
    print "$input\n";
}

Ситуация| #1:
скрипт конектиться,заходит на канал, НО! по вооду test должна выполнится комманда msg ,но этова не происходит,пишит типа неправильная комманда,а если я вставляю help вместо msg то она выполняется!

Ситуация #2:

Как грамотно можна открыть несколь сокетов к примеру на конект к IRC ???

Это сообщение отредактировал(а) diverd - 19.3.2006, 18:07

--------------------

[ FreeBSD & pERL p0WER eVERY dAY ]

nitr

Дата 20.3.2006, 00:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

=) Ско-ка раз говорилось, что лучше не создавать велосипед, если нужен полноценный бот или что-то ещё, то используй модули smile

Net::IRC к примеру smile

и самое главное smile

)) почитай RFC
нет такого
print $sock "msg\r\n";

а есть PRIVMSG smile

Код

print $sock "PRIVMSG $to :$msg\n";

Это сообщение отредактировал(а) nitr - 20.3.2006, 00:28

--------------------

I love ArchLinux

DiverD

Дата 20.3.2006, 00:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

nitr спасибо братан=)
Ско-ка раз говорилось, что лучше не создавать велосипед, если нужен полноценный бот или что-то ещё, то используй модули а скока раз тебе писать в пм??=)

я не хочу модули использовать дополнительные!

--------------------

[ FreeBSD & pERL p0WER eVERY dAY ]

nitr

Дата 20.3.2006, 01:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

Цитата

и самое главное smile

)) почитай RFC
нет такого
print $sock "msg\r\n";

а есть PRIVMSG smile

Код

print $sock "PRIVMSG $to :$msg\n";

--------------------

I love ArchLinux

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