读QQ ip地址数据库的Perl模块

con

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


#QQWry模块使用演示
#QQWry.pm同目录下必须有CoralWry.dat或QQWry.dat文件(注意文件名大小写)
#get_address()取一个字串形式的ip地址为参数,
#返回(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是什么东东阿, 给个链接阿?