Board logo

标题: [推荐]Perl Web Server [打印本页]

作者: cnangel    时间: 2004-11-9 05:53     标题: [推荐]Perl Web Server

$_=q^use IO::Socket;$s=new IO::Socket::INET(Listen=>5,LocalPort=>8888);s
/./"&#".ord(&#36;&).";"/eg;while(select&#36;c=&#36;s->accept){<&#36;c>=~m&#35;/+(\S+)&#35;;&#36;i=&#36;1
!~/\.\./*open(f,&#36;1)?join"",<f>:"<html><pre>\&#36;_=q%c&#36;_%c;ev&#97;l</pre></html>
";-e&#36;1&&&#36;1=~/cgi&#36;/?ev&#97;l&#36;i:printf"HTTP/1.0 200&#36;/&#36;/&#36;i",94,94;close}^;ev&#97;l





欢迎光临 星星博客 (http://bbs.huhoo.net/) Powered by Discuz! 7.0.0