David R. Conrad (drc@adni.net)
Mon, 26 Oct 1998 09:59:50 -0500 (EST)
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
(I started to write this a few days ago, then postponed it.  I've gotten
plenty of mail from the list since, but anyway....)
After not receiving anything for a day or so I got worried that my ISP was
engaging in the same stupid practice that was recently discussed here, so
I did a "who CodherPlunks", and got mail from toad.com with no trouble.  So
now I had a copy of the CodherPlunks membership list, and naturally my first
thought was to hack up a perl script to display some stats.
Here's a breakdown on number of subscribers by top level domain:
403	com
133	net
90	edu
49	org
28	uk
27	de
24	ca
23	au
15	se
10	jp
6	us, fi
5	fr, nl, pt
4	br, za, nz, gov, cn, es
3	dk, pl, cz
2	my, ph, no, ru, ee, ie, at, in, it
1	mx, be, mz, uy, hk, li, jo, hr, hu, mil, tn, nu, to, tr, ai, ch, tw, ma, ar, il, sg, si, sk
Here's the script that produced it:
#!/usr/local/bin/perl -w
# counterpunks: read file who-CodherPlunks into hash %dom which associates
# top-level domains with numbers of subscribers; convert into hash %num
# which associates numbers with domain(s); sort %num descending and print.
# David R. Conrad <drc@adni.net> 19 October 1998
$CPNX = "who-CodherPlunks";
open(CPNX) or die("Cannot read $CPNX: $!");
while (<CPNX>) {
  /.*\.(\S+)/;
  $dom{lc($1)}++;
}
close(CPNX);
for $d (keys(%dom)) {
  if (exists $num{$dom{$d}}) {
    $num{$dom{$d}} .= ", $d";
  } else {
    $num{$dom{$d}} = $d;
  }
}
for $n (sort {$b <=> $a} keys(%num)) {
  print "$n\t$num{$n}\n";
}
David R. Conrad <drc@adni.net>
-----BEGIN PGP SIGNATURE-----
Version: PGPfreeware 5.0i for non-commercial use
Charset: noconv
iQA/AwUBNjSOdYPOYu8Zk+GuEQLWQQCgrTPiSXhK51MWvJLbpmmb09J/Kh4An0oN
4Kn/hR0iiPR8H/AM17rtQDmJ
=B2WM
-----END PGP SIGNATURE-----
The following archive was created by hippie-mail 7.98617-22 on Sat Apr 10 1999 - 01:15:22