Re: What WHOIS module do I need to parallel the version on http://www.networksolutions.com/cgi-bin/whois/whois


P is for Practical
	PerlMonks

Re: What WHOIS module do I need to parallel the version on http://www.networksolutions.com/cgi-bin/whois/whois

by Wonko the sane (Deacon)

on Apr 11, 2003 at 00:25 UTC ( [id://249774]=note: print w/replies, xml )

Need Help??

in reply to NSI-style WHOIS Module?

Just for the heck of it, here is a quick and dirty whois.
This is more or less probably what Net::Whois::Raw does.
It of course is alot better and what you should probably consider using.

This method gets undesired results back from certain TLD whois servers.
Basically because some expect the search to be specified slightly different.

#!/usr/local/bin/perl5.6.0 -w
use strict;

use IO::Socket;

while ( my $domain = <> )
{
    chomp($domain);

    my($tld) = $domain =~ /\.([^\.]+)$/;

    my $SOCK = IO::Socket::INET->new(
        PeerAddr    => qq{$tld.whois-servers.net},
        PeerPort    => 43,
        Timeout     => 10,
    ) or die qq{[$domain] Can't connect to whois server: $!};

    print $SOCK qq{$domain \015\012};

    print <$SOCK>;

    close $SOCK;

    sleep(1);
}
[download]

Wonko