下面的程序是個很有用戶的診斷工具,可以用來調試與客戶端和代理的交互情況.
該程序 首先會等待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

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的http --- 用于HTTP调试的最小型Perl Web 服务器的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。