perl中使用ip138网站查询ip归属地脚本分享_perl教程-查字典教程网
perl中使用ip138网站查询ip归属地脚本分享
perl中使用ip138网站查询ip归属地脚本分享
发布时间:2016-12-28 来源:查字典编辑
摘要:这是去年年前写的一个perl脚本哎年后都没看过perl了。复制代码代码如下:#!/usr/bin/perluseLWP::Simple;op...

这是去年年前写的一个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 %sn”,$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

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学习
    热门perl学习
    脚本专栏子分类