大胖的部落格

Just a note
  C++博客 :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理 ::
  112 随笔 :: 0 文章 :: 3 评论 :: 0 Trackbacks
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 大胖 阅读(409) 评论(0)  编辑 收藏 引用 所属分类: Others

只有注册用户登录后才能发表评论。
网站导航: 博客园   IT新闻   BlogJava   博问   Chat2DB   管理