perl中使用ip138网站查询ip归属地脚本分享(permit ip host)越早知道越好

随心笔谈11个月前发布 admin
99 0

#!/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);

© 版权声明

相关文章