程嶏清单15-3.txt

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

程序清单15-3：get.pl
# ! /usr/bin/perl
#获取QUERY_METHOD环境变量
$queryType = $ENV{"REQUEST_METHOD"};
print "Content - type: text/plain \n\n";
if($queryType = "GET")
{
     &ReadGetQueryData(*data);
     #打印出读到的数据
     print "The get data is: \n  \n";
     print $data;
     print "\n";
}
#这个子函数的功能就是获取GET请求数据
sub ReadGetQueryData
{
	     local(*queryString) = @_  if  @_;
#读取QUERY_STRING环境变量
$queryString  = $ENV{"QUERY_STRING"
};
return 1;