桂林北站地址,比较好的网站开发项目,郑州网站制作咨询,销售平台网站建设方案下面的程序是个很有用户的诊断工具,可以用来调试与客户端和代理的交互情况. 该程序 首先会等待HTTP连接,只有收到请求报文,就会将报文打印在屏幕上,然后等待用户输入一条响应报文,并将其回送给客户端.
#! /usr/bin/perl
use Socket;
use Carp;
use FileHandle;# (1) use prot …下面的程序是个很有用户的诊断工具,可以用来调试与客户端和代理的交互情况. 该程序 首先会等待HTTP连接,只有收到请求报文,就会将报文打印在屏幕上,然后等待用户输入一条响应报文,并将其回送给客户端.
#! /usr/bin/perl
use Socket;
use Carp;
use FileHandle;# (1) use prot 8080 by default, unless overridden on command line
$proto (ARGV ? $ARGV[0] : 8080 );
socket(S, PF_INET, SOCK_STREAM, $proto) || die;
setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack(1, 1)) || die;
bind(S, sockaddr_in($prot, INADDR_ANY)) || die;
listen(S, SOMAXCONN) || die;# (3) print a startup message
printf( Type-O-Serve Accepting on Port %d \n\n, $port);while(1)
{# (4) wait for a connection C$cport_caddr accept(C, S);($cport, $caddr) sockaddr_in($cport_caddr);C-autoflush(1);# (5) print who the connection is form$cname gethostbyaddr($caddr, AF_INET);printf( Request From s%\n, $cname);# (6) read request msg until blank line, and print on screenwhile ($line C){print $line;if ($line ~ /^\r/) { last; }}# (7) prompt for response message, and input response lines,# setting response lines to client, until solitary .printf( Type Response Followed by .\n);while ($line STDIN){$line ~ s/\r//;$line ~ s/\n//;if ($line ~ /^\./) { last; }print C $line . \r\n;}close(C);
}参考《HTTP权威指南》P119
