此功能将网络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; }
祝学习愉快!(内容编辑有误?请选中要编辑内容 -> 右键 -> 修改 -> 提交!)