Perl listen用法及代碼示例

描述

此函數配置網絡套接字 SOCKET 以偵聽傳入的網絡連接。將傳入連接隊列長度設置為 EXPR。您可能需要考慮使用 IO::Socket 模塊，它提供了一種更簡單的方式來創建和偵聽網絡套接字。

用法

以下是此函數的簡單語法 âˆ'

listen SOCKET, EXPR

返回值

此函數在失敗時返回 0，成功時返回 1。

示例

以下是顯示其基本用法的示例代碼，這是一個服務器示例以及套接字實現 Perl Socket âˆ

Perl 套接字

#!/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;
}