#!/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-02
Perl 和 StrawberryPerl 與 ActivePerl 的區(qū)別詳解
這篇文章主要介紹了Perl 和 StrawberryPerl 與 ActivePerl 的區(qū)別詳解,本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下
2020-12-12
perl 讀取所需文件的路徑，然后打開(kāi)相應(yīng)的文件
perl，讀取所需文件的路徑，然后打開(kāi)相應(yīng)的文件，并對(duì)文件中的DNA序列進(jìn)行計(jì)數(shù)，substr函數(shù)對(duì)長(zhǎng)字符串的片段化處理功能
2013-03-03
perl的logwrapper使用實(shí)例代碼
perl的logwrapper可以對(duì)任何的函數(shù)將標(biāo)準(zhǔn)輸出和錯(cuò)誤輸出重定向到對(duì)應(yīng)的log文件
2013-02-02
perl文件操作的一些例子分享
有關(guān)perl文件操作的一些例子，供大家學(xué)習(xí)參考
2013-02-02
perl哈希的一個(gè)實(shí)例分析
上一篇文章介紹了hash的入門(mén)教程，這篇文章為大家提供一個(gè)實(shí)例，方便大家深入學(xué)習(xí)
2013-02-02
perl對(duì)長(zhǎng)度不一文本的行列進(jìn)行置換的實(shí)現(xiàn)代碼
處理生物數(shù)據(jù)時(shí)，常常需要行列置換，這在R里面異常的簡(jiǎn)單容易，一個(gè)t()就解決了
2013-02-02
perl之print,printf,sprintf使用案例詳解
這篇文章主要介紹了perl之print,printf,sprintf使用案例詳解,本篇文章通過(guò)簡(jiǎn)要的案例,講解了該項(xiàng)技術(shù)的了解與使用,以下就是詳細(xì)內(nèi)容,需要的朋友可以參考下
2021-09-09
Perl 批量添加Copyright版權(quán)信息
對(duì)所有輸入文件，如果沒(méi)有版權(quán)信息則加上版權(quán)信息，否則什么都不做，并對(duì)原文件以.bak結(jié)尾備份,需要的朋友可以參考下
2017-08-08
Perl圖形化包管理工具PPM學(xué)習(xí)使用筆記
這篇文章主要介紹了Perl圖形化包管理工具PPM學(xué)習(xí)使用筆記,本文詳細(xì)講解了什么是PPM、PPM界面的功能按鈕說(shuō)明、PPM如何安裝卸載包等內(nèi)容,需要的朋友可以參考下
2015-06-06