[104659] in Cypherpunks
[NOISE] Coderpunks membership
daemon@ATHENA.MIT.EDU (David R. Conrad)
Mon Oct 26 11:42:33 1998
Date: Mon, 26 Oct 1998 09:59:50 -0500 (EST)
From: "David R. Conrad" <drc@adni.net>
To: coderpunks@toad.com
Reply-To: "David R. Conrad" <drc@adni.net>
-----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 coderpunks", and got mail from toad.com with no trouble. So
now I had a copy of the coderpunks 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-coderpunks 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-coderpunks";
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-----
