perl中使用ip138网站查询ip归属地脚本分享
更新时间：2014年09月18日 10:21:02 投稿：junjie
这篇文章主要介绍了perl中使用ip138网站查询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.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实现删除Windows下的图片缓存缩略图Thumbs.db
这篇文章主要介绍了Perl实现删除Windows下的图片缓存缩略图Thumbs.db,本文实现了批量删除Thumbs.db文件,需要的朋友可以参考下2014-12-12
求婚示爱的Perl代码之改写篇,特分享下， 方便需要的朋友2013-03-03
Perl胶水实现前后台对接的方法，有需要的朋友可以参考下2013-02-02
由于业务需要，要查询客户的ip地址，将部分地区的客户过滤出来,感谢黑影子和扶凯的帮忙，推荐了IP::QQWry::Decoded这个模块，该模块是专门用来读取qqwry纯真数据库的，用起来非常简单2013-04-04
这篇文章主要介绍了Perl中的单行注释和多行注释语法,本文还同时讲解了其它常见编程语言的单行注释和多行注释语法,需要的朋友可以参考下2015-06-06
Perl语言有很多值得学习的地方，那么你对Perl哈希表的概念是否熟悉呢，这里和大家分享一下，希望本文的介绍能让你有所收获2013-02-02
perl获取日期与时间的例子，供大家学习参考2013-02-02
在perl代码中，open 有一个特殊的地方，就是如果你给它一个未定义（这是为什么用hash的原因）的变量做间接文件句柄，那么 Perl 会自动为你定义那个变量，也就是自动把它激活，使它包含一个合适的文件句柄引用2013-02-02
正则表达式是 Perl 语言的一大特色，也是 Perl 程序中的一点难点，不过如果大家能够很好的掌握他，就可以轻易地用正则表达式来完成字符串处理的任务，当然在 CGI 程序设计中就更能得心应手了2013-07-07
使用perl的Tie::File 模块删除文件固定行, 这里的处理主要利用了perl的Tie::File 模块把数组和文件绑定,然后就可以使用perl的splice函数操作数组,从而达到操作文件的目的,对perl删除文件固定行感兴趣的朋友跟随小编一起看看吧2023-12-12
最新评论