Full Code of WisdomFusion/qqwry.dat for AI

Repository: WisdomFusion/qqwry.dat
Branch: master
Commit: d55f838964ed
Files: 2
Total size: 1.3 KB

Directory structure:
gitextract_290l3qop/

├── README.md
└── ip_query.pl

================================================
FILE CONTENTS
================================================

================================================
FILE: README.md
================================================
# qqwry.dat

> 纯真(CZ88.NET)自2005年起一直为广大社区用户提供社区版IP地址库，只要获得纯真的授权就能免费使用，并不断获取后续更新的版本。如果有需要免费版IP库的朋友可以前往纯真的官网进行申请。
> 纯真除了免费的社区版IP库外，还提供数据更加准确、服务更加周全的商业版IP地址查询数据。纯真围绕IP地址，基于 网络空间拓扑测绘 + 移动位置大数据 方案，对IP地址定位、IP网络风险、IP使用场景、IP网络类型、秒拨侦测、VPN侦测、代理侦测、爬虫侦测、真人度等均有近20年丰富的数据沉淀。

## IP地址解析 Demo：

- [Perl version](./ip_query.pl)


## Changelog

* [QQ IP数据库 纯真版 20231122](./20231122/)
  - 记录总数：547299条
  - 更新日期：2023年11月22日
  - 数据库版本：纯真


================================================
FILE: ip_query.pl
================================================
#!/usr/bin/perl -w
use strict;
use v5.12;

use utf8;
use Encode;
use IP::QQWry::Decoded;
use Carp qw( croak );

binmode(STDIN,  ':encoding(utf8)');
binmode(STDOUT, ':encoding(utf8)');
binmode(STDERR, ':encoding(utf8)');

my $qqwry = IP::QQWry::Decoded->new('qqwry.dat', 'gbk');

open my $out_fh, '>>', 'ipinfo.txt'
    or croak "Can't open file: $!";

while (<DATA>) {
    my $ip   = chomp($_);
    my $no   = $.;
    my $info = $qqwry->query($ip);
    my $pro  = qw{ };
    
    if ( $info =~ /^(.*?省|宁夏|广西|新疆|内蒙古|.*?市)/ ) {
        $pro = $1;
    }
    
    print           "$no\t$ip\t$info\t$pro\n";
    print {$out_fh} "$no\t$ip\t$info\t$pro\n";
    $out_fh->autoflush(1);
}

__DATA__
58.241.163.163
218.4.127.202
49.67.233.148
124.116.225.38
123.126.22.198
182.114.86.20
61.133.220.114
223.146.125.163
180.111.11.41
60.222.139.76
110.187.218.8
180.111.11.41
112.94.67.249
110.88.226.96
117.88.81.6
218.240.149.50
124.73.134.115