AI时代，找源码已成为过去式，纪念我过去的十年0(回)
75天前
还有人吗2(回)
93天前会python真的可以为所欲为0(回)
573天前
这里还有人吗2(回)
758天前这里还有人吗0(回)
758天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
983天前一个简单的，只能处理单一请求的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) 回复
？？
回复评论