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