VPF::сокет не срабатывает - Форум программистов

vechik

Дата 4.3.2010, 14:03 (ссылка)

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

Загрузка ...

Новичок

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

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

Не могу понять, почему сокет не срабатывает.
Код SocketClient.pl

Код


#!/usr/bin/perl -w
use strict;
use CGI qw(:all);
print header;
open STDERR, ">err.txt";
use IO::Socket;

my $socket = IO::Socket::UNIX->new(Peer => "/tmp/mysock",
                                   Type      => SOCK_STREAM,
                                   TimeOut    => 10)
   or print "$@-$!-$?<br>";   

my $answer = <$socket>;
close($socket);
print "Server: $answer";

Код SocketServer.pl

Код


#!/usr/bin/perl -w
use strict;
use CGI qw(:all);
print header;
open STDERR, ">err.txt";

use IO::Socket;
use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);
unlink "/tmp/mysock";
my $server = IO::Socket::UNIX->new(Local => "/tmp/mysock",
                                   Type      => SOCK_STREAM,
                                   Listen    => 5) 
   or die "$@";   

my $flags = fcntl($server, F_GETFL,0) or die "Can't get flags for the socket: $!\n";
$flags = fcntl($server, F_SETFL, $flags | O_NONBLOCK) or die "Can't get flags for the socket: $!\n";

while (my $client = $server->accept()) {
       print $server "Server work!";
};
sleep 5;
close($server);

Сначала запускаю сервер, затем клиента.
У клиента $socket неопределена, $anser =''
Что бы это значило?

Это сообщение отредактировал(а) vechik - 4.3.2010, 14:20

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