
- Perl 基础
- Perl - 主页
- Perl - 介绍
- Perl - 环境
- Perl - 语法概述
- Perl - 数据类型
- Perl - 变量
- Perl - 标量
- Perl - 数组
- Perl - 哈希
- Perl - IF...ELSE
- Perl - 循环
- Perl - 运算符
- Perl - 日期和时间
- Perl - 子例程
- Perl - 引用
- Perl - 格式
- Perl - 文件 I/O
- Perl - 目录
- Perl - 错误处理
- Perl - 特殊变量
- Perl - 编码标准
- Perl - 正则表达式
- Perl - 发送电子邮件
- Perl 高级
- Perl - 套接字编程
- Perl - 面向对象
- Perl - 数据库访问
- Perl - CGI 编程
- Perl - 包和模块
- Perl - 进程管理
- Perl - 嵌入式文档
- Perl - 函数引用
- Perl 实用资源
- Perl - 问题和答案
- Perl - 快速指南
- Perl - 实用资源
- Perl - 讨论
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; }
perl_function_references.htm
广告