经典常用cgi子程序

经典常用cgi子程序

#####
1,NO cache 的方法：
print "Content-type: text/html\n\n";
print "Pragma:no-cachenn";

#----------------------------------
2.检查非法字符：

if ($A{'ID'}=~/[||<|>|s+|\|/|?|*|$|n|r|&]/){
print "输入信息中含有非法字符<P>程序终止";
exit0;}
#——————————————————

3.查email及homeUrl

$useremail="" if (!($useremail =~ /.*@.*..*/));
$userurl ="" if (!($userurl =~ /.*:.*..*/ ));

#=====================================================
4.sub decode { #解码
local($return)=$_[0];
$return =~ tr/+/ /;
$return =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
return $return;
}

##########
5. #去掉html标记
sub filterhtml {
local($return)=$_[0];
$return =~ s///g;
if ($allow_html != 1) {
$return =~ s/<([^>]|n)*>//g;
$return =~ s/<//g;
}
return $return;
}

#######################################
6. #取时间日期
($secn,$minn,$hourn,$dayn,$monn,$yearn,$weekn,$yeardayn,$isdst) = localtime(time+(3600*$time_miss));
$monn=$monn+1;
if ($monn<10) {$monn="0$monn";}
if ($dayn<10) {$dayn="0$dayn";}
if ($hourn<10) {$hourn="0$hourn";}
if ($minn<10) {$minn="0$minn";}
if ($secn<10) {$secn="0$secn";}
$daten="$yearn/$monn/$dayn";
$timen="$hourn:$minn:$secn";
$newuserno="$yearn$monn$dayn$hourn$minn$secn";
}

#########
#从文件读出数据

sub readtxtfile {
open(READTXTFILE,"$_[0]");
@readtxtfile=<READTXTFILE>;
close(READTXTFILE);
return @readtxtfile;
}
#############
#查空
sub checkempty {
local($chkval)=$_[0];
$chkval =~ s/ |<br>|n//g;
&error($_[1]) if ($chkval eq "");
}
##########