perl中使用ip138網(wǎng)站查詢(xún)ip歸屬地腳本分享
更新時(shí)間：2014年09月18日 10:21:02 投稿：junjie
這篇文章主要介紹了perl中使用ip138網(wǎng)站查詢(xún)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í)現(xiàn)刪除Windows下的圖片緩存縮略圖Thumbs.db
這篇文章主要介紹了Perl實(shí)現(xiàn)刪除Windows下的圖片緩存縮略圖Thumbs.db,本文實(shí)現(xiàn)了批量刪除Thumbs.db文件,需要的朋友可以參考下2014-12-12
求婚示愛(ài)的Perl代碼之改寫(xiě)篇,特分享下， 方便需要的朋友2013-03-03
分享下perl膠水實(shí)現(xiàn)前后臺(tái)對(duì)接的方法
Perl膠水實(shí)現(xiàn)前后臺(tái)對(duì)接的方法，有需要的朋友可以參考下2013-02-02
由于業(yè)務(wù)需要，要查詢(xún)客戶(hù)的ip地址，將部分地區(qū)的客戶(hù)過(guò)濾出來(lái),感謝黑影子和扶凱的幫忙，推薦了IP::QQWry::Decoded這個(gè)模塊，該模塊是專(zhuān)門(mén)用來(lái)讀取qqwry純真數(shù)據(jù)庫(kù)的，用起來(lái)非常簡(jiǎn)單2013-04-04
這篇文章主要介紹了Perl中的單行注釋和多行注釋語(yǔ)法,本文還同時(shí)講解了其它常見(jiàn)編程語(yǔ)言的單行注釋和多行注釋語(yǔ)法,需要的朋友可以參考下2015-06-06
Perl語(yǔ)言有很多值得學(xué)習(xí)的地方，那么你對(duì)Perl哈希表的概念是否熟悉呢，這里和大家分享一下，希望本文的介紹能讓你有所收獲2013-02-02
perl獲取日期與時(shí)間的例子，供大家學(xué)習(xí)參考2013-02-02
在perl代碼中，open 有一個(gè)特殊的地方，就是如果你給它一個(gè)未定義（這是為什么用hash的原因）的變量做間接文件句柄，那么 Perl 會(huì)自動(dòng)為你定義那個(gè)變量，也就是自動(dòng)把它激活，使它包含一個(gè)合適的文件句柄引用2013-02-02
正則表達(dá)式是 Perl 語(yǔ)言的一大特色，也是 Perl 程序中的一點(diǎn)難點(diǎn)，不過(guò)如果大家能夠很好的掌握他，就可以輕易地用正則表達(dá)式來(lái)完成字符串處理的任務(wù)，當(dāng)然在 CGI 程序設(shè)計(jì)中就更能得心應(yīng)手了2013-07-07
使用perl的Tie::File?模塊刪除文件固定行,?這里的處理主要利用了perl的Tie::File?模塊把數(shù)組和文件綁定,然后就可以使用perl的splice函數(shù)操作數(shù)組,從而達(dá)到操作文件的目的,對(duì)perl刪除文件固定行感興趣的朋友跟隨小編一起看看吧2023-12-12