当前位置：首页 -> 技术开发 -> CGI专区 -> CGI教学:第一章 cgilib例

CGI教学:第一章 cgilib例

时间： 2021-07-31 作者：daque

一个大略的读取并处置表格乞求数据的cgilib.pl例子：#!/usr/bin/perlsub readgetdata{ # 指定限制变量querystring用以生存和传播因变量的参数 local(*querystring) = @_ if @_; # 读取情况变量query_string的值赋给变量$querystring $querystring = $env{"query_string"}; return 1;}sub readpostdata{ local(*querystring)=@_ if @_; local($contentlength); # 读取情况变量content_length的值 $contentlength = $env{"content_length"}; # 查看能否罕见据 if($contentlength){ # 从摆设stdin读取contentlength长度的字符赋给$querystring read(stdin,$querystring,$contentlength); } return 1; } sub readdata{ local(*querystring) = @_ if @_; # 读取情况变量request_method $requesttype=$env{"request_method"}; # 即使乞求办法为get则运用因变量readgetdata # 要不即使乞求办法为post则运用因变量readpostdata if($requesttype eq "get"){ &readgetdata(*querystring); } elsif($requesttype eq "post"){ &readpostdata(*querystring); } return 1; } sub decodedata{ local(*querystring)= @_; # 把减号变换成空格 $querystring=~s/\+/ /g; # 变换十六进制字符 $querystring=~s/%(..)/pack("c",hex($1))/ge; return 1; } sub parsedata{ local(*querystring,*formdata) = @_ if @_; local($key,$value,$curstring,@tmparray); # 以&为分割符把字符串变换成键-值对 @tmparray = split(/&/,$querystring); # 在数组@tmparray内轮回 foreach $curstring(@tmparray){ # 以=为分割符划分键-值对 ($key,$value) = split(/=/,$curstring); # 解码 &decodedata(*key); &decodedata(*value); # 把键和值加到字典中 $formdata{$key}=$value; } return 1; } 1;#end of file cgilib.pl 运用本领：要运用此库需含下列语句：#require "cgilib.pl";表格数据处置：%datadict=();&readdata(*data);&parsedata(*data,datadict);字典数据处置： while(($key,$value)=each(%datadict)){ print $key,"=",$value,"\n\n";}

CGI教学:第一章 cgilib例

相关推荐

推荐下载

热门阅览

最新排行