Reverse ip на перле

Хы был пример на пхп но в силу дальнейшего моего проэкта все надо переписывать на перл.
Вот решил выложить)

Code:

#!/usr/bin/perl
use strict;
use LWP::UserAgent;
print "Enter domain:";
my $str=<STDIN>;
chomp $str;
my $browser = LWP::UserAgent->new;
my $url = 'http://www.seologs.com/ip-domains.html';
my $response = $browser->post($url,['domainname' => $str]);
my $data=$response->content;
while($data=~/(?<=\))([-\s\w\.]*)(?=<br>)/ig){
  print $1."\n";
}

 

Оо, что-то я замечаю плавный переход пхп на перл =\

 

Помнится в *nix есть команда:
nslookup antichat.ru

 

Хреного тебе помниться.

 

Еще несколько скриптов по сабжу:
By dni:

Code:

#!/usr/bin/perl
#Reverse IP script.
#Written by dni
#shouts to oto, leetskeet, uNK
#irc.bluehell.org #r00t

use LWP::UserAgent;
while (!$ARGV[0]) {
                print "Usage: $0  IP \n"; exit;}
$a = 1;
$ua = new LWP::UserAgent(timeout => 15, agent => "Mozilla/5.0 (x11; u; linux i686; en-US; rv:1.8.0.7) Gecko/20060909 Firefox/1.5.0.7)" );

$req = $ua->get('http://whois.webhosting.info/' . $ARGV[0] . '?pi=1&ob=SLD&oo=ASC');
if (!($req->is_success)) {

        die $req->status_line; }
else {
$output = $req->as_string;
until ($output =~ /(.*?)IP\sDetails\s-\sN\/A\./) {
$req = $ua->get('http://whois.webhosting.info/' . $ARGV[0] . '?pi=' . $a . '&ob=SLD&oo=ASC');
if (!($req->is_success)) { die $req->status_line; }
$output = $req->as_string;

while ($output =~ /<td><a\shref=\"http:\/\/whois.webhosting.info\/(.*?)\">/g){
        my($crap,$yes)=split(/info\/(.*?)\.\"\>/,$&);
        print "$yes\n";
                }
sleep 5;
$a++;
        }
print "Done!\n";
} 

By me:

Code:

sub ddbGetCookies
{
  my $ua=LWP::UserAgent->new(timeout => 7,
                             cookie_jar => {});
  my $response=$ua->post($ddb.'cgi-bin/login.cgi',
                         [user => $ddbLogin,
                          pass => $ddbPassword,
                          action => 'login',
                          '1action' => 'GetByDomain',
                          domain=>'....'],
                         Referer=>$ddb . 'cgi-bin/login.cgi');
  $response->is_success || die 'Ddb login failed';
  $ua->cookie_jar;
}

sub ddbExtractTargets
{
  my $ua=LWP::UserAgent->new(timeout => 7,
                             cookie_jar => shift);
  my $response=$ua->get($ddb . shift,
                        Referer => $ddb);
  $response->is_success || die 'Ddb request failed';
  foreach(split("\n", $response->content))
  {
    if(/<b>there are <a href=\"(.+?)\">\d+ domains<\/a>/)
    {
      $response=$ua->get($ddb . $1,
                         Referer => $ddb);
      $response->is_success || die 'Ddb request failed';
      my @results=();
      foreach(split("\n",$response->content)) { push(@results,$1) if /<b><a href=\"(.+?)\" class=text12 target=_blank>/ }
      return @results;
    }
  }
}

 

Это почему?

Code:

$ nslookup antichat.ru
...
Non-authoritative answer:
Name:   antichat.ru
Address: 89.108.80.80

Чем твой скрипт отличается от этого?

 

Спроси у кого нить более умнее меня))))

 

По поводу скрипта от днй http://whois.webhosting.info/ стоит ограничение на количество запросов потому я его и не стал включать в скрипт