perl中使用ip138网站查询ip归属地脚本分享
更新时间：2014年09月18日 10:21:02 投稿：junjie
这篇文章主要介绍了perl中使用ip138网站查询ip归属地脚本分享,本文包含了处理HTML的部分,只保留IP归属地信息,需要的朋友可以参考下
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
这是去年年前写的一个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.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
相关文章
壁纸来自桌酷网站,所有权归属其网站，本代码仅做为交流学习使用，请勿用于商业用途，否则后果自负2012-08-08
这篇文章主要介绍了Perl初学笔记之Hello World,本文是自学Perl的一篇笔记,本文着重讲解了cpan的使用,需要的朋友可以参考下2015-06-06
Perl时间函数localtime的使用介绍，这里简单的介绍下，更多请查看官方介绍2013-02-02
Perl字符串处理学习备忘录，包括chop和chomp函数、getc函数、拼接字符串、分割字符串、重复拼接字符串、字串替换等。有需要的朋友，可以参考下2013-02-02
这篇文章主要介绍了python urllib中的编码处理示例,本文直接给出几个处理实例,需要的朋友可以参考下2015-04-04
要求直接跳过第一行，然后读取后面的内容，以下代码来自网络，感谢原作者的辛苦劳动，顺祝新年快乐2013-02-02
perl是什么，干什么用的？perl原来设计者的意图是用来处理 字符的，80%的强项是处理字符，当然其它的很多都可以。现在很多网页也是用perl的，通常需要CGI环境2015-10-10
perl格式化输出的一个例子，使用了chomp，需要的朋友可以参考下2013-02-02
正则表达式是Perl语言的特色，基本的语法不是很难，但是编写一个符合需求、高效的正则表达式，还是有一些挑战的。下面这篇文章主要给大家介绍了关于强大的Perl正则表达式的相关资料，需要的朋友可以参考借鉴，下面来一起看看吧。2017-11-11
这篇文章主要介绍了Perl中的控制结构学习笔记,本文讲解了条件判断、循环语句、单行条件等内容,需要的朋友可以参考下2015-02-02
最新评论