爱站技术小编今天给大家带来的这篇文章主要介绍了perl中使用ip138网站查询ip归属地脚本分享,本文包含了处理HTML的部分,只保留IP归属地信息,需要的朋友可以参考下，希望这篇文章能帮助到你们。
这是去年年前写的一个perl脚本 哎 年后都没看过perl了。
#!/usr/bin/perl
use LWP::Simple;
open (FILE,”
while(
){
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”>
- (.*?)<.>
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网站查询ip归属地脚本有哪些了吧。