perl ip 귀속 지 일괄 조회 방법 코드

업무 수요 로 인해 고객 의 ip 주 소 를 조회 하고 일부 지역 의 고객 을 걸 러 내 려 고 합 니 다.ip 데이터 베 이 스 를 사용 하 는 것 을 생각 하기 시 작 했 습 니 다.순수한 데이터 베 이 스 를 읽 는 것 이 저 에 게 어렵 다 는 것 을 알 게 되 었 습 니 다.그리고 저 는 현재 시간 이 비교적 촉박 합 니 다.그룹 에서 문의 한 결과 검 은 그림자 와 부 카 이의 도움 에 감 사 드 립 니 다.IP:QQQWry:Decoded 이 모듈 을 추 천 했 습 니 다.이 모듈 은 qqqwry 순수 데이터 베 이 스 를 읽 기 위해 사용 되 며 매우 간단 합 니 다.

#!/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
",$id,$ip,$key if $info=~/   /;
}