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

读QQ ip地址数据库的Perl模块
作者提供的相关的附件（大小：1 K）

#!/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";