欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

perl中使用ip138網(wǎng)站查詢ip歸屬地腳本分享

 更新時間：2014年09月18日 10:21:02   投稿：junjie  
這篇文章主要介紹了perl中使用ip138網(wǎng)站查詢ip歸屬地腳本分享,本文包含了處理HTML的部分,只保留IP歸屬地信息,需要的朋友可以參考下

這是去年年前寫的一個perl腳本 哎 年后都沒看過perl了。

復(fù)制代碼 代碼如下:

#!/usr/bin/perl
use LWP::Simple;
open (FILE,”<file”);
while(<FILE>){
s/^IP1.*//g;
my @file =split(/\,|\s+/,$_);
my @file1=”$file[0] $file[1]“;
my $IP =”$file[1]” ;
my $domain=”$file[0]“;
my $url=”http://ip138.com/ips138.asp?ip=$IP&action=2″;
my $connet =get(“$url”);
my @connet =split(/\n/,$connet);
foreach my $sc (@connet){
if($sc =~ m/td align=”center”><ul><li>(.*?)<.*/){
printf “%-40s %-20s %s\n”,$domain,$IP,$1 ;
}
}
}
close(FILE);

file 文件的格式 如下

復(fù)制代碼 代碼如下:

conf.f.#   113.105.246.71,113.105.246.78
u.qurl.f.# 218.30.117.155,218.30.117.156
config.dengluqi.net 127.0.0.1
www.sina.com    61.172.201.194,61.172.201.195
dns.msftncsi.com    131.107.255.255
ptlogin2.qq.com 222.73.82.34

結(jié)果

復(fù)制代碼 代碼如下:

perl  ip138.pl

相關(guān)文章

最新評論