perl批量查询ip归属地的方法代码
作者:NorthPath
时间:2026-06-29
浏览:0
最近业务上需要根据客户IP地址来过滤某些地区的访问,一开始想直接用IP数据库,但纯真数据库的解析逻辑对时间紧迫的我来说实在有些复杂。在群里求助后,多亏黑影子和扶凯推荐了 IP::QQWry::Decoded 这个模块——它专为读取QQWry纯真数据库设计,用起来比想象中简单太多。 直接上代码,核心逻
本文目录
最近业务上需要根据客户IP地址来过滤某些地区的访问,一开始想直接用IP数据库,但纯真数据库的解析逻辑对时间紧迫的我来说实在有些复杂。在群里求助后,多亏黑影子和扶凯推荐了 IP::QQWry::Decoded 这个模块——它专为读取QQWry纯真数据库设计,用起来比想象中简单太多。

直接上代码,核心逻辑其实就一行查询调用,剩下的都是常规处理:
复制代码 代码如下:
#!/usr/bin/perl
use IP::QQWry::Decoded;
use Encode;
use utf8;
binmode(STDIN, ':encoding(utf8)'); # 这三行
binmode(STDOUT, ':encoding(utf8)'); # 抄别人的
binmode(STDERR, ':encoding(utf8)'); # 用来输出中文,和拿中文查找
my $qqwry=IP::QQWry::Decoded->new('qqwry.dat','gbk');
open UNUSE,'iplist.txt';
while (
($id,$ip,$key)=/(\d+)\s+(.*?)\s+(.*)/;
my $info=$qqwry->query("$ip"); # 其实关键代码就这一行,哈哈
printf "%s\t%s\t%s\n",$id,$ip,$key if $info=~/地区名/;
}
作者最新文章
漫蛙漫画APP下载安卓版免费
2026-10-13 13:42
漫蛙动漫下载安卓版安装包
2026-10-13 13:19
漫蛙manwa2免费漫画入口在哪
2026-10-13 13:17
漫蛙2漫画入口
2026-10-13 13:03
会声会影X5去除视频原有字幕的操作方法
2026-10-13 11:07
上一篇:
腾讯电脑管家如何设置开机自启
热门文章
更多
精品专题
更多
Mac软件
更多
WINDOWS
更多









































