Web-site Development Tools

Jon Knight jon at net.lut.ac.uk
Mon Jul 27 03:38:13 EDT 1998


On Fri, 24 Jul 1998, Floyd Ingram wrote:
> Most critics of FP and other MS products are just anti-Microsoft or
> anti-Bill Gates folks with a lot of envy.

Or folks who have to use or support them... 

Tatty bye,

Jim'll

#!/usr/bin/perl -- -Whois++-client-in-6-lines-of-Perl -Beat-that-Z39.50! 
use IO::Socket;sub w{$f=shift;$a{$f}=1;($h,$p,$q)=split("/",$f);$s=
IO::Socket::INET->new(PeerAddr=>"$h:$p")||return;print $s "$q\r\n";while(<$s>)
{next if(/^%/);if(/^# SERVER-TO-ASK/){while(<$s>){$x=$1 if/Name: (.*)\r\n$/;$y
=$1 if/Port: (.*)\r\n$/;$f="$x/$y/$q";@j=(@j,$f)if(/^# END/&&!$a{$f})}}else{
print}}close($s)}@j=shift;while(@j){w(pop(@j))}# whois++.pl host/port/query



More information about the Web4lib mailing list