简单的CGI二级域名跳转程序.docVIP

　　简单的CGI二级域名跳转程序教育资源库 　　用PERL制作简单的二级域名跳转程序 　出自：Netfolie 　　相信大家都申请过某些站点上提供的免费二级域名，例如网易的youname.yeah.、youname.126.等，这是用什么方法来实现的？现在我就用一个简单的二级域名跳转程序来为大家解开这一头雾水。首先让我们来看看下面的程序，下面的方法是通过默认首页来调用CGI程序达到判断分析并跳转，我们把一页面置于默认的首页（底下有介绍）当我们访问站点时例如：main.htm; # 变量赋值 主页的真实URL 　　geturl = split(//, $ENV{QUERY_STRING});#使用split函数拆分脚本参数或者表单输入项，然后赋予ocpurl 　　foreach (geturl) { 　　($name,$value) = split(/=/, $_); 　　setfrom($name, $value); 　　}#循环拆分数组geturl把其中的值分别赋予变量name和value并调用子程序setfrom对变量加以处理 　　read(STDIN, $buffer, $ENV{CONTENT_LENGTH}); 　　pairs = split(//, $buffer); 　　foreach (pairs) { 　　($name, $value) = split(/=/, $_); 　　setfrom($name, $value); 　　}#读取用POST递交的表单, 标准输入口的字节数，循环拆分字节赋予变量name和value并调用子程序setfrom对变量加以处理 　　$url =getvar(url ,\n‖); 　　$id =getvar(id ,\n‖); 　　$url =$myurl if (!($url =~ /.*\:.*\..*/ ));#从递交的表单里提取相对应的值赋予变量 　　$userip=$ENV{REMOTE_ADDR};#提取递交脚本的主机IP地址赋予变量 　　$url=~s/Http:\/\///g; 　　$url=~s/HTtp:\/\///g; 　　$url=~s/HTTp:\/\///g; 　　$url=~s/HTTP:\/\///g; 　　$url=~s/http:\/\///g; 　　$url=~s/hTTP:\/\///g; 　　$url=~s/htTP:\/\///g; 　　$url=~s/httP:\/\///g; 　　$url=~s/hTtP:\/\///g; 　　$url=~s/HtTp:\/\///g; 　　$url=~s/HttP:\/\///g; 　　$url=~s/hTTp:\/\///g; 　　$url=~s/HTtP:\/\///g; 　　$url=~s/htTp:\/\///g; 　　$url=~s/HtTP:\/\///g; 　　$url=~s/hTtp:\/\///g; 　　#把所有可能输入的方式都替换成空 　　if (/$url/i != ~$myurl){ 　　error(域名不正确); 　　exit 0; 　　} 　　name1=split(/\./,$url); 　　$name2=$name1[0]; 　　$name2=~tr/A-Z/a-z/; 　　#对从浏览器输入的$url变量做一些处理 　　open (FILE,$head$urlfile); 　　line=; 　　close (FILE); 　　#打开我们存储数据的文件并作赋值给line 　　foreach (line){ 　　l: $urllink\n\n; 　　exit 0; 　　sub setfrom {#对变量$name和$value做一些处理和过滤 　　$na 这篇文章来自..，。