?? 第一章 cgilib例.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="第二章 動態創建圖像.htm">下一章</a> <a href="index.htm">目錄</a></p>
<br>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -