主页 > 知识库 > perl中使用ip138网站查询ip归属地脚本分享

perl中使用ip138网站查询ip归属地脚本分享

热门标签:上海企业外呼系统 智能机器人电销神器 热门电销机器人 河南虚拟外呼系统公司 万利达百货商场地图标注 外呼电信系统 电话机器人哪里有卖 惠州龙门400电话要怎么申请 okcc外呼系统怎么调速度

这是去年年前写的一个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=$IPaction=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中使用ip138网站查询ip归属地脚本分享》,本文关键词  perl,中,使用,ip138,网站,查询,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《perl中使用ip138网站查询ip归属地脚本分享》相关的同类信息!
  • 本页收集关于perl中使用ip138网站查询ip归属地脚本分享的相关信息资讯供网民参考!
  • 推荐文章