listen

描述 (Description)

此功能配置网络套接字SOCKET以侦听传入的网络连接。 将传入连接队列长度设置为EXPR。 您可能需要考虑使用IO :: Socket模块，它提供了一种更简单的方法来创建和侦听网络套接字。

语法 (Syntax)

以下是此函数的简单语法 -

listen SOCKET, EXPR

返回值 (Return Value)

此函数在失败时返回0，在成功时返回1。

例子 (Example)

以下是显示其基本用法的示例代码，这是一个服务器示例以及套接字实现Perl Socket -

#!/usr/bin/perl -w
# server.pl
#--------------------
use strict;
use Socket;
# use port 7890 as default
my $port = shift || 7890;
my $proto = getprotobyname('tcp');
# create a socket, make it reusable
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) 
   or die "Can't open socket $!\n";
setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1) 
   or die "Can't set socket option to SO_REUSEADDR $!\n";
# bind to a port, then listen
bind( SOCKET, pack( 'Sn4x8', AF_INET, $port, "\0\0\0\0" ))
       or die "Can't bind to port $port! \n";
listen(SOCKET, 5) or die "listen: $!";
print "SERVER started on port $port\n";
# accepting a connection
my $client_addr;
while ($client_addr = accept(NET_SOCKET, SOCKET)) {
   # send them a message, close connection
   print NEW_SOCKET "Smile from the server";
   close NEW_SOCKET;
}

When above code is executed, it produces the following result −