校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

主頁 > 知識庫 > perl中使用ip138網站查詢ip歸屬地腳本分享

perl中使用ip138網站查詢ip歸屬地腳本分享

熱門標簽:上海企業外呼系統 智能機器人電銷神器 熱門電銷機器人 河南虛擬外呼系統公司 萬利達百貨商場地圖標注 外呼電信系統 電話機器人哪里有賣 惠州龍門400電話要怎么申請 okcc外呼系統怎么調速度

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

復制代碼 代碼如下:

#!/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=$IPaction=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 文件的格式 如下

復制代碼 代碼如下:

conf.f.360.cn   113.105.246.71,113.105.246.78
u.qurl.f.360.cn 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

結果

復制代碼 代碼如下:

perl  ip138.pl

標簽:周口 綿陽 周口 綏化 淮安 合肥 秦皇島 百色

巨人網絡通訊聲明:本文標題《perl中使用ip138網站查詢ip歸屬地腳本分享》,本文關鍵詞  perl,中,使用,ip138,網站,查詢,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《perl中使用ip138網站查詢ip歸屬地腳本分享》相關的同類信息!
  • 本頁收集關于perl中使用ip138網站查詢ip歸屬地腳本分享的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 甘孜县| 大化| 阿尔山市| 渑池县| 黔东| 昌宁县| 雷波县| 太原市| 扶绥县| 达孜县| 平罗县| 金塔县| 铜山县| 苍梧县| 农安县| 葵青区| 彭州市| 铅山县| 南充市| 丹凤县| 黎平县| 长子县| 安陆市| 北碚区| 乳山市| 平湖市| 灌云县| 崇义县| 明水县| 辽阳市| 台中市| 原阳县| 城市| 平遥县| 永吉县| 宜阳县| 江城| 绥阳县| 静乐县| 大厂| 南雄市|