Perl 中的 listen函数

首页 / Perl入门教程 / Perl 中的 listen函数

描述

此功能将网络SocketSOCKET配置为侦听传入的网络连接。将传入的连接队列长度设置为EXPR。您可能要考虑使用IO::Socket模块,该模块提供了一种创建和侦听网络Socket的简便方法。

语法

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

链接:https://www.learnfk.comhttps://www.learnfk.com/perl/perl-listen.html

来源:LearnFk无涯教程网

listen SOCKET, EXPR

返回值

如果失败,此函数返回0,如果成功,则返回1。

无涯教程网

以下是显示其基本用法的示例代码,这是服务器示例以及Socket实现Perl Socket-

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;
}

祝学习愉快!(内容编辑有误?请选中要编辑内容 -> 右键 -> 修改 -> 提交!)

技术教程推荐

软件测试52讲 -〔茹炳晟〕

TensorFlow快速入门与实战 -〔彭靖田〕

Web协议详解与抓包实战 -〔陶辉〕

分布式技术原理与算法解析 -〔聂鹏程〕

移动端自动化测试实战 -〔思寒〕

现代C++编程实战 -〔吴咏炜〕

编程高手必学的内存知识 -〔海纳〕

eBPF核心技术与实战 -〔倪朋飞〕

自动化测试高手课 -〔柳胜〕

好记忆不如烂笔头。留下您的足迹吧 :)