这是去年年前写的一个perl脚本 哎 年后都没看过perl了。

代码如下:

#!/usr/bin/perl

use LWP::Simple;

open (FILE,”

while(){

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”>

• (.*?)<.*/){

  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

  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

  更多信息请查看IT技术专栏