会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前一个简单的，只能处理单一请求的Web服务器模型。 |
send_file_response() 方法能把Client请求的文件传送过去。 |
QUOTE: |
#!/usr/bin/perl |
use HTTP:: Daemon; |
$| = 1; |
my $wwwroot = "/home/doc/"; |
my $d = HTTP:: Daemon->new || die; |
print "Perl Web-Server is running at: ", $d->url, " ...\n"; |
while ( my $c = $d->accept ) |
{ |
print $c "Welcome to Perl Web-Server<br>"; |
if ( my $r = $c->get_request ) |
{ |
print "Received : ", $r->url->path, "\n"; |
$c->send_file_response ( $wwwroot.$r->url->path ); |
} |
$c->close; |
} |
by: 发表于：2017-09-12 14:53:58 顶(0) | 踩(0) 回复
？？
回复评论