Chinaunix

标题: Perl Web Server. [打印本页]
作者: deathcult    时间: 2003-06-03 17:39
标题: Perl Web Server.

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

复制代码
作者: loris    时间: 2004-03-08 00:12
标题: Perl Web Server.
看不懂，请指教。
作者: jason_liuk    时间: 2007-03-26 11:07
web监控程序？看不太懂。。



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2