程嶏清单15-4.txt

< linux网络编程工具>>配套源码

程序清单15-4：post.pl
# ! /usr/bin/perl
$requestType = $ENV{"REQUEST_METHOD"};
print "Content - type: text/plain \n ";
if($requestType eq "POST")
{
  &ReadPostQueryData(*data);
  print "The Post data is: \n ";
  print $data;
   print "\n";
}
#子函数的功能是获取POST请求数据
sub ReadPostQueryData
{
     	local(*queryString) = @_  if @_;
       	local($contentLength);
	#读取CONTENT_LENGTH环境变量
	   	$contentLength  = $ENV{"content_Length"};
	    #我们必须首先确认有数据可读
   	if($contentLength)
	{
    	     	#从标准输入(stdin)读入 $contentLength长度的字符串，并
    		    ＃保存在 $queryString变量中
        		read(STDIN,$queryString,$contentLength);
	    }
		return 1;
}