標(biāo)題: 讀QQ ip地址數(shù)據(jù)庫的Perl模塊 [打印本頁] 作者: con 時(shí)間: 2006-09-10 16:43 標(biāo)題: 讀QQ ip地址數(shù)據(jù)庫的Perl模塊 #!/usr/bin/perl -w
use strict;
use QQWry;
#QQWry模塊使用演示
#QQWry.pm同目錄下必須有CoralWry.dat或QQWry.dat文件(注意文件名大小寫)
#get_address()取一個(gè)字串形式的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";
