VPF::Запись с сокета в файл - Форум программистов

DiverD

Дата 24.4.2006, 20:56 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


#!/usr/bin/perl 
use IO::Socket;
#use strict;
#use warnings;

my $server = "127.0.0.1";
my $nick = "www";
my $user = "aaaaa localhost localhost: aaaaa";
my $src_port = '54672';
my $dst_port = '6667';
my $channel = "#test";

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\n";
print $sock "user $user\n";
open(FILE,">LOG");
 while (<$sock>) {
    print $sock "join $channel\n";
    print FILE $_;
}

почему не пишет в файл и как заставить это зделать?

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

[ FreeBSD & pERL p0WER eVERY dAY ]

nitr

Дата 24.4.2006, 21:42 (ссылка)

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

Загрузка ...

Эксперт

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

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

для ирк-протокола ничего не придумывай... используй Net::IRC

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

I love ArchLinux

DiverD

Дата 25.4.2006, 18:10 (ссылка)

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

Загрузка ...

Бывалый

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

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

nitr
а что так ни чего не зделать? ну можно же ну!!!! (я так думаю =)))
я не хочу пользоваться модулями дополнительными. так бы у меня вопроса не возникло!!

Добавлено @ 18:11
а может написать серверную часть чтоб слушала src_port и усё буде "Z" ??? я проста не пробовал но подумал.

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

[ FreeBSD & pERL p0WER eVERY dAY ]

Lat1n0S

Дата 10.5.2006, 21:21 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


#!/usr/bin/perl
use IO::Socket;
#use strict;
#use warnings;
my $server = "127.0.0.1";
my $nick = "www";
my $user = "aaaaa localhost localhost: aaaaa";
my $src_port = '54672';
my $dst_port = '6667';
my $channel = "#test";
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\n";
print $sock "user $user\n";
open(FILE,">>LOG");
 while (<$sock>) {
    print $sock "join $channel\n";
    print FILE "$_\n";
}

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