- (供了解)下例代码显示了一个名为 type-o-serve 的小型 Perl 程序。这个程序是个很有用的诊断工具,可以用来测试与客户端和代理的交互情况。与所有 Web 服务器一样,type-o-serve 会等待 HTTP 连接。只要 type-o-serve 收到了请求报文,就会将报文打印在屏幕上,然后等待用户输入(或粘贴)一条响应报文,并将其回送给客户端。通过这种方式,type-o-serve 假扮成一台 Web 服务器,记录下确切的 HTTP 请求报文,并允许用户回送任意的 HTTP 响应报文。
- 这个简单的 type-o-serve 实用程序并没有实现大部分的 HTTP 功能,但它是一种很有用的工具,产生服务器响应报文的方式与 Telnet 产生客户端请求报文的方式相同。
#type-o-serve——用于 HTTP 调试的最小型 Perl Web 服务器
#!/usr/bin/perl
use Socket;
use Carp;
use FileHandle;
# (1) use port 8080 by default, unless overridden on command line
$port = (@ARGV ?