服务器端套接字程序在 PERL 中不起作用

Question

我在 PERL 中创建了一个简单的 Socket 程序。服务器端程序似乎没有完成套接字创建。它不会在 Socket 创建后打印该语句。客户端等待来自服务器的消息，然后关闭套接字。在打印 Socket 时，它获取了 Server 套接字的引用，但不执行任何操作。请在下面找到简单的服务器和客户端程序。

服务器端程序：

#!usr/bin/perl
#tcpserver.pl

use IO::Socket::INET;

my($socket,$client_socket);

my($peeraddress,$peerport);

#Socket creation
$socket  = new IO::Socket::INET(LocalHost=>'127.0.0.1',LocalPort=>'5000',Proto=>'tcp',Listen=>5) or die "Error in Socket Creation: $!n";

print "Server Waiting for client connection on port 5000";

while(1)
{   
    $client_socket = $socket->accept();

    $peer_address = $client_socket->peerhost();

    $peer_port = $client_socket->peerport();

    print "Accepted New Client Connection From : $peer_address $peer_port\n";

    #Send message to the client 

    $data = "Message from Server";

    $client_socket->send($data);

}

$socket->close();

Answer 1

您的套接字创建可能没有任何问题。您的打印语句可能会被缓冲。要么在打印语句的末尾添加一个新行字符，要么在脚本的开头设置$|=1;，以强制 Perl 刷新打印语句而不缓冲它。

在代码中使用严格和警告也是一种很好的做法。

use strict;
use warnings;
use IO::Socket::INET;
$|=1;

my($socket,$client_socket);
my($peeraddress,$peerport);

#Socket creation
$socket  = new IO::Socket::INET(LocalHost=>'127.0.0.1',LocalPort=>'5000',Proto=>'tcp',Listen=>5) or die "Error in Socket Creation: $!n";

print "Server Waiting for client connection on port 5000";

while(1)
{
    my $client_socket = $socket->accept();
    my $peer_address = $client_socket->peerhost();
    my $peer_port = $client_socket->peerport();
    print "Accepted New Client Connection From : $peer_address $peer_port\n";

    #Send message to the client
    my $data = "Message from Server";
    $client_socket->send($data);
}

$socket->close();