VPF::ПЕРЛ, чтение файлов и сокетов - Форум программистов

procool

Дата 31.5.2002, 08:47 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет.

пишу скрипт, который открывает unix-сокет с заданным именем, читает
из него построчно данные и пишет в файл. Причем именно построчно, вариант
@data = <SOCK>
не подойдет, потому что в сокет пишут данные быстро и он не кончается.
Можно в скрипте сделать переменную - сколько строк он будет считывать.

Вот в этом и вопрос.. Как осуществить построчное чтение из сокета

Unregistered

Дата 13.1.2004, 09:57 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

ну я сто лет назад понял уже что надо делать через seek:)

acp

Дата 13.1.2004, 14:00 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата

Как осуществить построчное чтение из сокета

А что мешает самому интерпретировать входные данные как строки?
То есть, обнаружил символ окончания строки и вперёд...

Цитата

ну я сто лет назад понял уже что надо делать через seek:)

Можешь сказать - как?

Бекетов Роман aka Yaiu

Дата 14.1.2004, 13:31 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот пример из perldoc

Код


#!/usr/bin/perl -w

use Socket;
use strict;
my ($rendezvous, $line);

$rendezvous = shift || '/tmp/catsock';
socket(SOCK, PF_UNIX, SOCK_STREAM, 0)|| die "socket: $!";
connect(SOCK, sockaddr_un($rendezvous))|| die "connect: $!";

while (defined($line = <SOCK>)) {
    print $line;
}
exit;

procool

Дата 25.4.2004, 06:53 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Читаем из сокета:

Код

-bash-2.05b$ cat db
#!/usr/bin/perl -w
use Socket;
use POSIX qw(BUFSIZ setsid EWOULDBLOCK);


my $data_send = ''; 
for(@ARGV){$data_send .= $_." ";}
$data_send =~ s/^\s+//;
$data_send =~ s/\s+$//;
$data_read = '';
$uauth_socket_name = "/tmp/some.socket";

my $maxlen = 1000024;
my $flags  = 0;

print "operning socket...\n";
            socket(AUTHSERV, PF_UNIX, SOCK_STREAM, 0);
print "connecting to socket $uauth_socket_name\n";
            connect(AUTHSERV, sockaddr_un($uauth_socket_name)) || die("cannot con                                                                                     nect to $uauth_socket_name");
print "sending info to $uauth_socket_name: \n$data_send\n";
            send (AUTHSERV, $data_send, 0); # ÏÔÐÒÁ×ÌÑÀ ÐÅÒÅÍÅÎÎÕÀ Ó ÚÁÐÒÏÓÏÍ ÓÅÒ                                                                                     ×ÅÒÕ...
print "reading the answer...\n";
print "the answer is:\n";
         my $newdata = 1;
        while ($newdata) { my $tmp_data = ""; # читаем пока в сокете  хоть что-то есть...
            recv(AUTHSERV, $tmp_data, $maxlen, $flags);
            if (!$tmp_data) { $newdata = 0; }
            $data_read .= $tmp_data;
            print $tmp_data;
        }
print "\n===========================\nclosing socket $uauth_socket_name...\n";
 close (AUTHSERV); # ÚÁËÒÙÌ ÓÏËÅÔ...
print "quit...\n";
-bash-2.05b$

Воть. думаю всё понятно.. как нить через пол годика зайду, посмотрю может что ответите

удачи)

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