get-post-len.pl

带mod_cache的lighttpd服务器,性能有很大提高,可以让一个1G带宽跑满不是神话 使用是直接解压后./configure -C就可以生成mod_cache模块的lighttpd.

#!/usr/bin/perl


print "Content-Type: text/plain\r\n\r\n";

if ($ENV{"REQUEST_METHOD"} eq "POST") {
	my $l = 0;
	while(<>) {
		$l += length($_);
	}
	print $l;
} else {
	print "0";
}