会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前#----------------------------- |
# 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> |
#----------------------------- |
by: 发表于：2017-09-13 14:17:05 顶(0) | 踩(0) 回复
??
回复评论