用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - perl代码库

perl 调试原始HTTP交换

2012-10-15 作者: 神马举报

[perl]代码库

#-----------------------------
# download the following standalone program
#!/usr/bin/perl -w
# dummyhttpd - start an HTTP daemon and print what the client sends

use strict;
use HTTP::Daemon;
# need LWP-5.32 or better

my $server = HTTP::Daemon->new ( Timeout => 60 );
print "Please contact me at: <URL:", $server->url, ">\n";

while ( my $client = $server->accept )
{
CONNECTION:
	while ( my $answer = $client->get_request )
	{
		print $answer->as_string;
		$client->autoflush;
RESPONSE:
		while ( <STDIN> )
		{
			last RESPONSE   if $_ eq ".\n";
		last CONNECTION if $_ eq "..\n";
		print $client $_;
	}
	print "\nEOF\n";
}
print "CLOSE: ", $client->reason, "\n";
$client->close;
undef $client;
}

#-----------------------------
#http://somewhere.com/cgi-bin/whatever
#-----------------------------
#http://somewhere.com:8989/cgi-bin/whatever
#-----------------------------
#% telnet www.perl.com 80
#GET /bogotic HTTP/1.0
#
#<blank line here>
#
#HTTP/1.1 404 File Not Found
#
#Date: Tue, 21 Apr 1998 11:25:43 GMT
#
#Server: Apache/1.2.4
#
#Connection: close
#
#Content-Type: text/html
#
#
#<HTML><HEAD>
#
#<TITLE>404 File Not Found</TITLE>
#
#</HEAD><BODY>
#
#<H1>File Not Found</H1>
#
#The requested URL /bogotic was not found on this server.<P>
#
#</BODY></HTML>
#-----------------------------
% GET -esuSU http://mox.perl.com/perl/bogotic
# GET http://language.perl.com/bogotic
#
# Host: mox.perl.com
#
# User-Agent: lwp-request/1.32
#
#
# GET http://mox.perl.com/perl/bogotic --> 302 Moved Temporarily
#
# GET http://www.perl.com/perl/bogotic --> 302 Moved Temporarily
#
# GET http://language.perl.com/bogotic --> 404 File Not Found
#
# Connection: close
#
# Date: Tue, 21 Apr 1998 11:29:03 GMT
#
# Server: Apache/1.2.4
#
# Content-Type: text/html
#
# Client-Date: Tue, 21 Apr 1998 12:29:01 GMT
#
# Client-Peer: 208.201.239.47:80
#
# Title: Broken perl.com Links
#
#
# <HTML>
#
# <HEAD><TITLE>An Error Occurred</TITLE></HEAD>
#
# <BODY>
#
# <H1>An Error Occurred</h1>
#
# 404 File Not Found
#
# </BODY>
#
# </HTML>
#-----------------------------


网友评论    (发表评论)

共1 条评论 1/1页

发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。


扫码下载

加载中,请稍后...

输入口令后可复制整站源码

加载中,请稍后...