神剑山庄资源网 Design By www.hcban.com

这是去年年前写的一个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"codetitle">复制代码 代码如下:
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归属地

神剑山庄资源网 Design By www.hcban.com
神剑山庄资源网 免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
神剑山庄资源网 Design By www.hcban.com

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

暂无perl中使用ip138网站查询ip归属地脚本分享的评论...