Perl完成Web服务器的功能的问题？

zhlong8

现成的除了dancer 还有其他的吗？最简单的是哪一个。我现在不管性能，能用起来就行。
kingwmj 发表于 2011-06-15 19:47

    一行代码都不需要写就能跑起来的 dancer 还不够简单？

kingwmj

回复 11# zhlong8


  这么好，那我学习一下。我以为这个会很难搞定，看来也不是吗。   谢谢zhlong8

iakuf

使用 PSGI 吧，做下载服务太容易了，还性能非常好

iakuf

最简单的 Perl 静态下载服务器之一
建一个目录叫 Sites 放 HOME ，中间是静态文件就行。只要 root 能指定的地方都可以

1. plackup -MPlack::App::Directory  -e 'Plack::App::Directory->new(root => "$ENV{HOME}/Sites");'

复制代码

xti9er

我想用Perl 写一个Web服务器，通过HTTP协议提供文件下载服务，
不知道应该使用什么模块，请高手指点；
我 ...
CN_long 发表于 2011-06-15 14:51

    还是用成熟的开源软件吧 ，这模块不安全

albertd

1. #!/usr/bin/perl
   
2. use strict;
   
3. use POSIX 'WNOHANG';
   
4. use HTTP::Daemon;
   
5. use HTTP::Status;
   
6. 
   
7. my $quit = 0;
   
8. $SIG{CHLD} = sub { while ( waitpid(-1,WNOHANG)>0 ) { } };
   
9. $SIG{INT} = sub { $quit++ };
   
10. 
    
11. my $daemon = HTTP::Daemon->new(LocalPort=>8080,Reuse=>1) || die "Can't listen on 8080: $!";
    
12. print "Please contact me at: <URL:", $daemon->url, ">\n";
    
13. 
    
14. while (!$quit) {
    
15.       next unless my $connection = $daemon->accept;
    
16.       defined (my $child = fork()) or die "Can't fork: $!";
    
17.       if ($child == 0) {
    
18.           $daemon->close;
    
19.           process_req($connection);
    
20.       exit 0;
    
21.       }
    
22.       $connection->close;
    
23. }
    
24. 
    
25. sub process_req {
    
26.     my $sock = shift;
    
27.     while (my $request = $sock->get_request) {
    
28.         if ($request->method eq 'GET') {
    
29.             (my $file = $request->uri->path) =~ s#^/##;
    
30.             if ($file) {
    
31.                 $sock->send_file_response($file) or $sock->send_error(RC_NOT_FOUND);
    
32.             }
    
33.             else {
    
34.                 $sock->send_file_response('index.html');
    
35.             }
    
36.         }
    
37.     }
    
38. }
    

复制代码

回复 1# CN_long