使用 Perl 透過 QQWry 資料庫查詢 IP 地理位置

前言

在業務開發中，常需要根據客戶的 IP 地址過濾特定地區的用戶。雖然可以使用 IP 數據庫，但直接讀取純真數據庫（QQWry.dat）的難度較高，且開發時間緊迫。經同事推薦，發現 IP::QQWry::Decoded 這個 Perl 模組，專門用於讀取 QQWry 純真數據庫，使用起來非常簡單高效。

核心代碼實現

以下是完整的 Perl 腳本示例，演示如何批量查詢 IP 列表並過濾特定地區：

#!/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 (<UNUSE>) {
    ($id, $ip, $key) = /(\d+)\s+(.*?)\s+(.*)/;
    my $info = $qqwry->query("$ip");  # 核心查詢代碼
    printf "%s\t%s\t%s\n", $id, $ip, $key if $info =~ /地域名/;
}
close UNUSE;

關鍵點解析

• 模組初始化：IP::QQWry::Decoded->new('qqwry.dat', 'gbk') 載入數據庫文件並指定編碼為 GBK。
• 編碼處理：三行 binmode 設定確保標準輸入/輸出/錯誤流正確處理 UTF-8 中文，避免亂碼。
• 查詢方法：$qqwry->query("$ip") 返回包含地理位置信息的字符串，通過正則匹配過濾目標地區。
• 輸入格式：iplist.txt 每行包含 ID、IP、關鍵字，以空白分隔。

應用場景

此方案適用於：日誌分析、用戶地域統計、訪問控制、數據清洗等需要快速解析大量 IP 地址的場景。相比自行解析二進制數據庫，該模組封裝了複雜的解析邏輯，大幅降低開發門檻。

注意事項

• 確保 qqwry.dat 文件與腳本在同一目錄，或提供絕對路徑。
• 數據庫需定期更新以保證查詢準確性。
• 大批量查詢時建議優化 I/O 操作，避免頻繁打開關閉文件。