📄 cgi1.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<title>Perl教程之CGI应用</title>
<LINK rel="stylesheet" href="article.css" type="text/css">
</head>
<body>
<br>
<p align="center">第一章 cgilib例(未定稿)</p>
<p align="center"><a target="_blank" href="http://flamephoenix.126.com">by flamephoenix</a></p>
一个简单的读取并处理表格请求数据的cgilib.pl例子：<br><br>
#!/usr/bin/perl<br><br>
sub readGetData{
<br> <B># 指定局部变量queryString用以保存和传递函数的参数</B>
<br> local(*queryString) = @_ if @_;
<br> <B># 读取环境变量QUERY_STRING的值赋给变量$queryString</B>
<br> $queryString = $ENV{"QUERY_STRING"};
<br> return 1;<br>
}<br><br>
sub readPostData{
<br> local(*queryString)=@_ if @_;
<br> local($contentLength);
<br> <B># 读取环境变量CONTENT_LENGTH的值</B>
<br> $contentLength = $ENV{"CONTENT_LENGTH"};
<br> <B># 检查是否有数据</B>
<br> if($contentLength){
<br> <B># 从设备STDIN读取contentLength长度的字符赋给$queryString</B>
<br> read(STDIN,$queryString,$contentLength);
<br> }
<br> return 1;
<br>}
<br><br>
sub readData{
<br> local(*queryString) = @_ if @_;
<br> <B># 读取环境变量REQUEST_METHOD</B>
<br> $requestType=$ENV{"REQUEST_METHOD"};
<br>
<br> <B># 如果请求方式为GET则使用函数readGetData</B>
<br> <B># 否则如果请求方式为POST则使用函数readPostData</B>
<br> if($requestType eq "GET"){
<br> &readGetData(*queryString);
<br> }
<br> elsif($requestType eq "POST"){
<br> &readPostData(*queryString);
<br> }
<br> return 1;
<br>}
<br><br>
sub DecodeData{
<br> local(*queryString)= @_;
<br> <B># 把加号转换成空格</B>
<br> $queryString=~s/\+/ /g;
<br> <B># 转换十六进制字符</B>
<br> $queryString=~s/%(..)/pack("c",hex($1))/ge;
<br> return 1;
<br>}
<br><br>
sub parseData{
<br> local(*queryString,*formData) = @_ if @_;
<br> local($key,$value,$curString,@tmpArray);
<br>
<br> <B># 以&为分隔符把字符串转换成键-值对</B>
<br> @tmpArray = split(/&/,$queryString);
<br>
<br> <B># 在数组@tmpArray内循环</B>
<br> foreach $curString(@tmpArray){
<br> <B># 以=为分隔符分开键-值对</B>
<br> ($key,$value) = split(/=/,$curString);
<br> <B># 解码</B>
<br> &DecodeData(*key);
<br> &DecodeData(*value);
<br> <B># 把键和值加到字典中</B>
<br> $formData{$key}=$value;
<br> }
<br> return 1;
<br>}
<br><br>
1;<br>
#end of file cgilib.pl
<br><br><br>
<b>使用方法：</b><br><br>
要使用此库需含下列语句：<br>
#require "cgilib.pl";<br>
表格数据处理：<br>
%dataDict=();<br>
&readData(*data);<br>
&parseData(*data,dataDict);<br>
字典数据处理：
<br>while(($key,$value)=each(%dataDict)){
<br> print $key,"=",$value,"\n\n";<br>
}<br>
<br>
</p>
<p align="center"><a href="cgi2.htm">下一章</a> <a href="index.htm">目录</a></p>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -