欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-10-08 09:36:46
这是去年年前写的一个perl脚本 哎 年后都没看过perl了。 复制代码 代码如下: #!/usr/bin/perl use lwp::simple; open (...

这是去年年前写的一个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中使用ip138网站查询ip归属地脚本分享