Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
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 ( #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); }

Wonko


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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://249774]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (14)
As of 2014-07-31 13:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (248 votes), past polls