大家都知道www.ip138.com可以查手机号码归属地,但总感觉一个一个去查询特别麻烦,今天尝试着用perl写了个小脚本.获取号码归属地和SIM卡的类型.

 
  
  1. #!/usr/bin/perl -w 
  2. use warnings; 
  3. use strict; 
  4. use LWP::UserAgent; 
  5. use HTML::TreeBuilder; 
  6. my $ip_url = 'http://www.ip138.com:8080/search.asp?action=mobile&mobile='; 
  7. open DATA,"$ARGV[0]"; 
  8. sub get_html { 
  9.         my $browser = LWP::UserAgent->new(); 
  10.         $browser->agent('Mozilla/4.0 (compatible;MSIE 6.0;Windows NT 5.1;SV1)'); 
  11.         my $resp = $browser->get(@_); 
  12. #       return ($resp->content,$resp->status_line,$resp->is_success,$resp) if wantarray; 
  13.         return unless $resp->is_success; 
  14.         return $resp->content 
  15. } 
  16. while (<DATA>){ 
  17.         chomp; 
  18.         print "$_\t"; 
  19.         my $link = $ip_url.$_; 
  20.         my $cont = get_html("$link","Accept-language"=>"zh-cn",'Accept-Charset'=>'gb2312',); 
  21.         #print "$cont\n"; 
  22.         my $table = $1 if $cont =~ m/<TABLE width=349 border="1" align="center" cellpadding="4" bordercolor=#3366cc style="border-collapse: collapse">(.*?)<\/TABLE>/s; 
  23.            $table =~ s/&nbsp\;/ /g; 
  24. #       print "$table\n"; 
  25.         my $tree = HTML::TreeBuilder->new(); 
  26.            $tree->strict_comment(1); 
  27.            $tree->parse($table); 
  28.            $tree->eof(); 
  29.         my $tr = ($tree->find_by_tag_name('tr'))[2]; 
  30.         my $tr1 = ($tree->find_by_tag_name('tr'))[3]; 
  31.         my @kids = $tr->content_list( ); 
  32.         my @class = $tr1->content_list(); 
  33.         print $kids[1]->as_text( ), "\t"; 
  34.         print $class[1]->as_text(),"\n"; 
  35.            $tree->delete; 
  36.         sleep(1); 
  37. } 
 
  
结果如下: