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下载