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

更新時間：2014年09月18日 10:21:02 投稿：junjie

這篇文章主要介紹了perl中使用ip138網(wǎng)站查詢ip歸屬地腳本分享,本文包含了處理HTML的部分,只保留IP歸屬地信息,需要的朋友可以參考下

這是去年年前寫的一個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=$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 文件的格式如下

復制代碼代碼如下:

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

結果

復制代碼代碼如下:

perl ip138.pl

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