Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: What WHOIS module do I need to parallel the version on

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{$}, 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); }


Comment on Re: What WHOIS module do I need to parallel the version on
Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (7)
As of 2015-11-28 21:50 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (746 votes), past polls