讀QQ ip地址數(shù)據(jù)庫的Perl模塊

con

#!/usr/bin/perl -w
use strict;
use QQWry;


#QQWry模塊使用演示
#QQWry.pm同目錄下必須有CoralWry.dat或QQWry.dat文件(注意文件名大小寫)
#get_address()取一個字串形式的ip地址為參數(shù),
#返回(ip所在段起始地址字串,ip所在段終止地址字串,地址1字串,地址2字串)的列表
my $ip=shift or die "give me a ip!\n";

my ($start,$end,$reg1,$reg2)=get_address($ip);
print "$ip in $start - $end at $reg1 $reg2\n";

Osment

LB的獲取IP信息代碼和這個功能一樣。也是用的QQWry.dat文件

con

哦, LB是什么東東阿, 給個鏈接阿?