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=~/地区名/;
}
作者最新文章
贵州省住建厅与贝壳集团签署旅居战略合作:五大维度落地方案解析
2026-09-08 18:13
上海链家安住APP:业主主动卖房功能与成交数据解析
2026-09-08 18:11
如何批量将PPT转成PDF格式?PPT转PDF工具怎么选?
2026-09-04 16:03
PDF文件怎么压缩?3个小技巧帮你减小体积
2026-09-03 18:03
小批量试产总结报告:新产品量产导入评审实战指南
2026-09-02 19:48
上一篇:
腾讯电脑管家如何设置开机自启
热门文章
更多
精品专题
更多
Mac软件
更多
WINDOWS
更多
Windows 10
Windows
Windows 10 是一款微软推出的经典操作系统,拥有硬件兼容性与多任务处理能力。它更偏向把系统状态查看和常用调节动作放在一起,适合需要持续观察和微调设备状态的场景。
极度公式
Windows/macOS/Linux
极度公式是一款跨平台专业LaTeX公式识别编辑软件,支持OCR公式识别和多平台编辑。和使用说明,避免使用,享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时,它能把识别后的处理步骤接得更顺,资料录入这类场景会省下不少时间。
















