当前位置: 主页 > 脚本 >

perl 调用ip138网站显示ip归属地

时间:2013-04-23 11:54来源:www.shencan.net 作者:shencan 点击:
这是去年 年前写的一个perl脚本 哎 年后 都没 看过perl了 cat ip138.pl #!/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]
欢迎大家分享自己的文档,请点击查阅:分享方法,Linux系统运维
如果你喜欢这文章,可以点击文章结尾处百度分享,分享到你的各种社区收藏,或推荐给朋友……


这是去年 年前写的一个perl脚本  哎 年后 都没 看过perl了

cat  ip138.pl
#!/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

 

转载请注明linux系统运维
http://www.linuxyw.com/linux/jiaoben/20130423/115.html

------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
验证码: 点击我更换图片