HTTP::Daemon, accept(), get_request(), send_file_response()

一个简单的，只能处理单一请求的Web服务器模型。

send_file_response()方法能把Client请求的文件传送过去。

#!/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; 
}