资源大小: 101KB
发布时间: 2009-12-21
文件格式: pdf
下载次数: 0
分享到:

下载地址:

下载地址1
(本站为飞网专业下载站,域名:down.cfei.net)

资源简介:

while ( $from_who = accept( CLIENT_SOCK, TCP_SOCK ) ){my $data;$from_who = recv( CLIENT_SOCK, $data, MAX_RECV_LEN, 0 );if ( $from_who ){my ( $the_port, $the_ip ) = sockaddr_in( $from_who );my $remote_name = gethostbyaddr( $the_ip, AF_INET );warn "Received from $remote_name: ", length( $data ),' -> ', substr( $data, 0, 39 ), "\n";}else{warn "tcp_s1: problem with recv: $!\n";next;}sleep( 3 );warn "Sending back to client ... \n";send( CLIENT_SOCK, $data, 0 )or warn "tcp_s1: problem with send: $!\n"


飞网下载站,免费下载共享资料,内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。