document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. sub ip2city {
  2.     my $ip = shift;
  3.     my $ua = LWP::UserAgent->new;
  4.     $ua->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)");
  5.     my $req = HTTP::Request->new(GET => \'http://ipgeoinfo.com/?ip=\'.$ip);
  6.     my $res = $ua->request($req);
  7.     my $nurl = $res->content;
  8.     my @tmp = split(/\\n/,$nurl);
  9.     $tmp[128] =~ s/< .+?>//gi;
  10.     $tmp[128] =~ s/ //gi;
  11.     return $tmp[128]
  12. }
  13. # Здесь я думаю все понятно, получили IP, запросили, спарсили результат.
');