IP鉴定子程序
sub ipadd{
$datapath="d:/ip";#ip地址文件夹
if ($ip eq "") { $ip=$ENV{'REMOTE_ADDR'}; }
($ip1,$ip2,$ip3,$ip4)=split(/\./,$ip);
$ips=$ip1*1000000000+$ip2*1000000+$ip3*1000+$ip4;
$ip1=int($ip1);
if (-f "$datapath/$ip1.txt") {
$datafile=$datapath."/".$ip1.".txt";
}
else {
$datafile=$datapath."/other.txt";
}
$from1='';
$from2='';
open(ipfile,"$datafile");
@ipdata=<ipfile>;
close(ipfile);
for ($i=0;$i<@ipdata;$i++){
($ip1,$ip2,$from1,$from2)=split(/__/,$ipdata[$i]);
($ipa1,$ipa2,$ipa3,$ipa4)=split(/\./,$ip1);
($ipb1,$ipb2,$ipb3,$ipb4)=split(/\./,$ip2);
$ipbegin =$ipa1*1000000000+$ipa2*1000000+$ipa3*1000+$ipa4;
$ipend =$ipb1*1000000000+$ipb2*1000000+$ipb3*1000+$ipb4;

if (($ips<=$ipend)&&($ips>=$ipbegin)) {
last;}
}
if ($from1 eq "") { $from1=qq~未知区域~; };
}
#end ips
使用的时候直接声明变量$ip ,输出&ipadd就可以了
IP地址文件请到www.5want.com下载