[NOISE] CodherPlunks membership

New Message Reply About this list Date view Thread view Subject view Author view

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-----


New Message Reply About this list Date view Thread view Subject view Author view

 
All trademarks and copyrights are the property of their respective owners.

Other Directory Sites: SeekWonder | Directory Owners Forum

The following archive was created by hippie-mail 7.98617-22 on Sat Apr 10 1999 - 01:15:22