描述
此函数配置网络套接字 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;
}
相关用法
- Perl link用法及代码示例
- Perl localtime用法及代码示例
- Perl length()用法及代码示例
- Perl log用法及代码示例
- Perl last用法及代码示例
- Perl length用法及代码示例
- Perl lcfirst()用法及代码示例
- Perl lstat用法及代码示例
- Perl log()用法及代码示例
- Perl local用法及代码示例
- Perl sin()用法及代码示例
- Perl abs()用法及代码示例
- Perl kill用法及代码示例
- Perl chop()用法及代码示例
- Perl wantarray用法及代码示例
- Perl gmtime用法及代码示例
注:本文由纯净天空筛选整理自 Perl listen Function。非经特殊声明,原始代码版权归原作者所有,本译文未经允许或授权,请勿转载或复制。