perl中使用ip138網(wǎng)站查詢ip歸屬地腳本分享
更新時(shí)間:2014年09月18日 10:21:02 投稿:junjie
這篇文章主要介紹了perl中使用ip138網(wǎng)站查詢ip歸屬地腳本分享,本文包含了處理HTML的部分,只保留IP歸屬地信息,需要的朋友可以參考下
這是去年年前寫(xiě)的一個(gè)perl腳本 哎 年后都沒(méi)看過(guò)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)文章
perl常量、多維數(shù)組及變量的初始化的實(shí)例代碼
perl常量、多維數(shù)組及變量的初始化的例子,供大家學(xué)習(xí)參考2013-02-02Perl 和 StrawberryPerl 與 ActivePerl 的區(qū)別詳解
這篇文章主要介紹了Perl 和 StrawberryPerl 與 ActivePerl 的區(qū)別詳解,本文給大家介紹的非常詳細(xì),對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值,需要的朋友可以參考下2020-12-12perl 讀取所需文件的路徑,然后打開(kāi)相應(yīng)的文件
perl,讀取所需文件的路徑,然后打開(kāi)相應(yīng)的文件,并對(duì)文件中的DNA序列進(jìn)行計(jì)數(shù),substr函數(shù)對(duì)長(zhǎng)字符串的片段化處理功能2013-03-03perl對(duì)長(zhǎng)度不一文本的行列進(jìn)行置換的實(shí)現(xiàn)代碼
處理生物數(shù)據(jù)時(shí),常常需要行列置換,這在R里面異常的簡(jiǎn)單容易,一個(gè)t()就解決了2013-02-02perl之print,printf,sprintf使用案例詳解
這篇文章主要介紹了perl之print,printf,sprintf使用案例詳解,本篇文章通過(guò)簡(jiǎn)要的案例,講解了該項(xiàng)技術(shù)的了解與使用,以下就是詳細(xì)內(nèi)容,需要的朋友可以參考下2021-09-09Perl圖形化包管理工具PPM學(xué)習(xí)使用筆記
這篇文章主要介紹了Perl圖形化包管理工具PPM學(xué)習(xí)使用筆記,本文詳細(xì)講解了什么是PPM、PPM界面的功能按鈕說(shuō)明、PPM如何安裝卸載包等內(nèi)容,需要的朋友可以參考下2015-06-06