科技讯息网 – 程序员的那点事!

首页 > 编程资料 > Perl语言 > 正文

Perl Web Server.

浏览次数:次 2007年03月26日 作者:deathcult 字号:


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





?loris 回复于:2004-03-08 00:12:11

看不懂,请指教。


?jason_liuk 回复于:2007-03-26 11:07:02

web监控程序?看不太懂。。