如何让perl直接接管http请求：

yuenshui

如何让perl直接接管http请求，比如访问：http://host:88/test.pl，

1. #!/usr/bin/perl -w
   
2. use Encode qw/encode decode/;
   
3. 
   
4. my $Line;
   
5. $Line = "";
   
6. 
   
7. $| = 1;
   
8. 
   
9. binmode(STDIN);
   
10. 
    
11. print "Content-type: text/html\r\n\r\n";
    
12. while (read (STDIN ,$Line, 1024)) {
    
13.         print $Line;
    
14. }

复制代码

输出：

1. GET /test.pl HTTP/1.1
   
2. Accept: */*
   
3. Accept-Language: zh-CN
   
4. User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.1; WOW64; Trident/5.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; InfoPath.3; .NET4.0C)
   
5. Accept-Encoding: gzip, deflate
   
6. Host: host:88
   
7. Connection: Keep-Alive
   
8. Cache-Control: no-cache

复制代码

cyril851122

自己开socket听88端口