Perl中的Socket

使用IO::Socket 模块

new()方法:
SOCKET对象变量=IO::Socket::INET->new(SOCKET变量值)，例如：
my $sock = IO::Socket::INET->new(
        PeerAddr => '127.0.0.1',
        PeerPort => ‘3000’,
        Proto    => 'tcp',
        LocalPort=> '1550');

***********************************************************************
参数              描述                          值类型
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
PeerAddr           远程主机的地址          主机地址[:端口或服务]
PeerHost            与PeerAddr相同
PeerPort          远程端口或服务                端口或服务
LocalAddr       本地地址                      主机地址[:端口或服务]
LocalHost         与LocalAddr相同
LocalPort         本地端口                      端口或服务
Proto                所使用的协议                  协议名或协议号
Type                 套接字类型                    SOCK_STREAM/SOCK_DGRAM...
Listen               监听的队列长度                整形数
Reuse                用于避免重启时BIND时间间隙    布尔值
Timeout              超时值                        整形数
MultiHomed        用于连接多IP地址              布尔值
***********************************************************************

accept()方法:
远程连接套接字对象变量=服务端套接字对象变量->accept(),例如：
my $session = $sock->accept;
用于服务端的等待监听过程。无参数，返回值为远程连接的套接字对象变量。
调用此方法也是一个生成套接字的过程，只不过此套接字为远程连接的套接字而已，它以对象变量方式存在，据有与本地套接字变量相同的属性与方法。

代码示例：

Server

Client

posted on 2009-05-06 16:33 大胖阅读(389) 评论(0) 编辑收藏引用所属分类: Others

只有注册用户登录后才能发表评论。


相关文章: 用C实现多态 printf 浮点数二进制表示文件操作字节对齐函数调用方式 Big Endian & Little Endian 和位域在TCL脚本中导入dll 在TCL命令行中调用C函数 Perl初学

网站导航: 博客园 IT新闻 BlogJava 知识库博问管理

大胖的部落格

留言簿

随笔分类

Reference

最新评论