perl 套接字的工作

Question

我是 Perl 套接字编程的初学者。截至目前，服务器发送一个字符串，客户端在我的程序中用另一个字符串响应。稍后，如果服务器发送另一个字符串，客户端将无法接收它。要在服务器和客户端之间多次传输数据，我应该包含任何功能吗？

服务器：

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

my $socket;
my $clientsocket;
my $serverdata;
my $clientdata;

$socket = new IO::Socket::INET (
    LocalHost => '127.0.0.1',
    LocalPort => 2500,
    Proto     => 'tcp',
    Listen    => 1,
    Reuse     => 1
) or die "Oops: $! \n";

print "Waiting for the Client.\n";
$clientsocket = $socket->accept();
print   "Connected from : ", $clientsocket->peerhost();
print   ", Port : ", $clientsocket->peerport(), "\n";

# Write some data to the client  
$serverdata = "This is the Server speaking \n";
print $clientsocket "$serverdata \n";

# read the data from the client
$clientdata = <$clientsocket>;
print "$clientdata";
$serverdata = "Server Again writing \n";
print $clientsocket "$serverdata";

$socket->close();

客户：

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

my $socket;
my $serverdata;
$socket = new IO::Socket::INET (
    PeerHost => '127.0.0.1',
    PeerPort => '2500',
    Proto    => 'tcp',
) or die "$!\n";

print "Connected to the Server.\n";

# read the message sent by server.
$serverdata = <$socket>;
print "Message from Server : $serverdata \n";

# Send some message to server.
my $name = "Client here!";
print $socket "$name";

# Read message sent by server.
$serverdata = <$socket>;
print "$serverdata";

$socket->close();

在客户端第二次打印 $serverdata 没有发生。

Answer 1

如果您使用从另一端读取消息，发送者必须以“\n”结束消息。 或者，您可以使用 recv(...) 这样消息不会被缓冲，直到换行符为止。

Answer 2

只要确保您的客户发送一整行即可。因为你正在阅读

<$clientsocket>

您的服务器正在等待来自客户端的“\n”。

Answer 3

您的服务器开始侦听某个端口。它一直等到客户端连接，accepts 连接。它通过客户端连接读取和写入一些数据。接着？然后它只是关闭套接字并退出程序。

这不是您想要的：您希望服务器开始等待下一个连接。这意味着某种循环：每次客户端连接时，我们都会进行通信：

while (my $client = $socket->accept) {
    # do something with the $client
}

我建议您阅读perldoc perlipc 的相关部分，但请记住它使用了过时的最佳实践，因此不要直接复制任何内容。