查询IP地址来源

工作中经常要查看IP地址位于的地址信息,没错,www.ip138.com可以查询到.但是当大批量的查询时,你该怎么办?难道也要一个一个去查询?这种重复性的工作非常耽误时间,不如写个脚本.实现批量查询,脚本和本人博客中的查询手机SIM卡所在省份所使用的方法一样.我也处于刚起步的菜鸟阶段.希望和大家一起学习...

脚本如下:

#!/usr/bin/perl -w
use warnings;
use strict;
use LWP::UserAgent;
use HTML::TreeBuilder;
my $ip_url = 'http://www.ip138.com/ips8.asp?ip=';
if (@ARGV != 1){
    die "Usage: ./$0 <ip_list> or <ip_addr>..\n";
 }
foreach (&get_ip_list()) {
        print "$_\t";
        my $link = $ip_url."$_"."&action=2";
#       print "$link\n";
        my $cont = get_html("$link");
#       print "$cont\n";
        my $table = $1 if $cont =~ m{<table width="80%"  border="0" align="center" cellpadding="0" cellspacing="0">(.*?)</table>}s;
        $table =~ s/本站主数据：//g;
        $table =~ s/参考数据一//g;
#print "$table\n";
        my $tree = HTML::TreeBuilder->new();
           $tree->strict_comment(1);
           $tree->parse($table);
           $tree->eof();

        my $tr = ($tree->find_by_tag_name('tr'))[2];
        my @kids = $tr->content_list();
#       print "@kids\n"
        if (@kids and ref $kids[0] and $kids[0]->tag() eq 'td'){
                print $kids[0]->as_text( ),"\n";
                }
           $tree->delete;
        sleep(1);
}
sub get_html {
        my $browser = LWP::UserAgent->new();
           $browser->agent('Mozilla/4.0 (compatible;MSIE 6.0;Windows NT 5.1; SV1)');
        my $resp = $browser->get(@_);
        return $resp->content;
}
sub get_ip_list{
    my @ip_list = ();
    if(!(-r $ARGV[0] and -f _ and -w _)){
          @ip_list = split (/\s/,$ARGV[0]);
    }else{
          open IP,"$ARGV[0]" or die "$ARGV:$!\n";
        while(<IP>){
            chomp;
            $_ =~ s/^\s+//;
            $_ =~ s/\s+$//;
            next if $_ =~ m/^#/;
            next if $_ eq '';
            $_ =~ m/((?:\d+\.){3}\d+)/;
            push (@ip_list,$1);
    }
  }
    return @ip_list;
}

结果类似于:

总感觉不是很严谨..少点什么东西..望高手指教.