SPUG: List Subscriber Data
Tim Maher/CONSULTIX
tim at consultix-inc.com
Sat Jan 22 12:18:06 CST 2000
Well, after almost two years of SPUGery, we've just reached a milestone-
the list has grown past 300 users!
To commemorate this auspicious event, here are some summary data about
our members, along with the program that generated the report.
-Tim
==========================================================
| Tim Maher, Ph.D. Tel/Fax: (206) 781-UNIX |
| SPUG Founder & Leader Email: spug at halcyon.com |
| Seattle Perl Users Group HTTP: www.halcyon.com/spug |
==========================================================
$ cat spug_domains
#! /usr/bin/perl -lnaF'@'
# spug_domains: report domains of SPUG-list subscribers
# Tim Maher, tim at consultix-inc.com, 1/22/00
BEGIN { @ARGV or @ARGV='spug-list'; }
# convert each domain-name to lower-case, and count occurrences
# by using domain-name as hash index
$domain_counts{"\L$F[1]"}++;
END {
# sort hash by values, and store result in array
@domain_counts_sorted=
map { sprintf "%26s = %s\n", $_, $domain_counts{$_} }
reverse sort { $domain_counts{$a} <=> $domain_counts{$b} }
keys %domain_counts;
# NOTE: -l on in shebang line, so don't need trailing \n's
print "\nNumber of SPUG subscribers: $.";
print "\nNumber of unique domains: ", scalar keys %domain_counts;
$"="\t"; # set list-item separator
print "\nTop 10 domains:\n\t at domain_counts_sorted[0..9]";
print "Entire list of domains:\n\t at domain_counts_sorted";
}
$ spug_domains
Number of SPUG subscribers: 301
Number of unique domains: 174
Top 10 domains:
boeing.com = 14
halcyon.com = 10
hotmail.com = 10
attws.com = 9
n2h2.com = 9
microsoft.com = 8
pss.boeing.com = 7
pobox.com = 6
yahoo.com = 6
nwlink.com = 5
Entire list of domains:
boeing.com = 14
halcyon.com = 10
hotmail.com = 10
attws.com = 9
n2h2.com = 9
microsoft.com = 8
pss.boeing.com = 7
pobox.com = 6
yahoo.com = 6
nwlink.com = 5
u.washington.edu = 5
amazon.com = 5
eskimo.com = 4
cobaltgroup.com = 4
seanet.com = 4
speakeasy.org = 4
scn.org = 4
tc.fluke.com = 4
uswnvg.com = 4
seaslug.org = 3
atl.com = 3
geospiza.com = 3
uswest.com = 3
rei.com = 2
sdc.cs.boeing.com = 2
earthlink.net = 2
nv.airtouch.com = 2
eddiebauer.com = 2
courtlink.com = 2
bcstec.ca.boeing.com = 2
usa.net = 2
bigfoot.com = 2
filmworks.com = 2
drizzle.com = 2
aa.net = 2
premier1.net = 2
wolfenet.com = 2
acm.org = 2
uswest.net = 2
pop.nwnexus.com = 1
destinations.com = 1
altavista.net = 1
blarg.net = 1
medius.net = 1
kalesis.com = 1
memoria.com = 1
home.com = 1
sleepy.ns.cs.boeing.com = 1
jetcity.com = 1
e-valuations.com = 1
meer.net = 1
fhcrc.org = 1
sihb.org = 1
cyberrealm.net = 1
webrocket.net = 1
microen.com = 1
adam.kellersupply.com = 1
weezel.com = 1
ucla.edu = 1
serviceintelligence.com = 1
seattle.gii.net = 1
wrq.com = 1
thinker.celestial.com = 1
metaip.checkpoint.com = 1
common-sense.com = 1
accountingnet.com = 1
tscnet.com = 1
consultix-inc.com = 1
hivnet.fhcrc.org = 1
driveway.com = 1
cncglobal.com = 1
sequent.com = 1
digidot.com = 1
dreamhaven.org = 1
vcommunities.com = 1
dynamicweb.com = 1
metrokc.gov = 1
mathin.com = 1
elwha.evergreen.edu = 1
sounddomain.com = 1
admin.gla.ac.uk = 1
igc.org = 1
smalldognet.com = 1
npl.washington.edu = 1
paul.spu.edu = 1
cco.caltech.edu = 1
bestnet.com = 1
metapath.com = 1
dblv017.ca.boeing.com = 1
teleport.com = 1
webforia.com = 1
gibbs.npl.washington.edu = 1
erwin.org = 1
coltrane.ns.cs.boeing.com = 1
esu2.esu2.k12.ne.us = 1
lucent.com = 1
fugue.ca.boeing.com = 1
nwsr.com = 1
gateway.uswnvg.com = 1
pugettech.com = 1
ust.hk = 1
stornet.com = 1
panix.com = 1
chittenden.org = 1
eud.com = 1
pnl.gov = 1
mushroom.ca.boeing.com = 1
cs.unm.edu = 1
webtv.net = 1
2dgs.com = 1
kirkham.net = 1
rbs.net = 1
photodisc.com = 1
cruciblelabs.com = 1
unigard.com = 1
emeraldsolutions.com = 1
gte.net = 1
sasha.ca.boeing.com = 1
chronology.com = 1
vcd.hp.com = 1
pacifier.com = 1
tanzatech.com = 1
teamdesign.com = 1
nwnexus.net = 1
airtouch.com = 1
libronix.com = 1
stadiumdistrict.com = 1
zipcon.net = 1
carios2.ca.boeing.com = 1
easyliving.com = 1
chocobo.org = 1
forge.ds.boeing.com = 1
ricochet.net = 1
lagwagon.net = 1
ix.netcom.com = 1
catmanor.com = 1
edmark.com = 1
mccaw-stg.com = 1
ministry.eu.org = 1
partes.com = 1
msn.com = 1
hsvaic.hv.boeing.com = 1
maximgroup.com = 1
emeraldnet.net = 1
serv.net = 1
windowware.com = 1
alum.mit.edu = 1
corixa.com = 1
3hats.com = 1
daft.com = 1
vertexdev.com = 1
swog.fhcrc.org = 1
cac.washington.edu = 1
jps.net = 1
olywa.net = 1
dis.wa.gov = 1
marin.net = 1
oz.net = 1
scherrer.com = 1
colltech.com = 1
grieg.seaslug.org = 1
cnw.com = 1
uffda.com = 1
ero.com = 1
chriskate.net = 1
scalar.org = 1
haakenson.com = 1
astro.washington.edu = 1
integrityol.com = 1
contract-jobs.com = 1
visca.com = 1
fluke.com = 1
interlinq.com = 1
aventail.com = 1
*========================================================================*
| Tim Maher, PhD Consultix & (206) 781-UNIX/8649 |
| Pacific Software Gurus, Inc Email: tim at consultix-inc.com |
| UNIX/Linux & Perl Training http://www.consultix-inc.com |
| 2/22: UNIX 2/28: Perl Modules 2/29: Int. Perl 3/3: Pattern Matching |
*========================================================================*
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
POST TO: spug-list at pm.org PROBLEMS: owner-spug-list at pm.org
Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/
SUBSCRIBE/UNSUBSCRIBE: Replace ACTION below by subscribe or unsubscribe
Email to majordomo at pm.org: ACTION spug-list your_address
More information about the spug-list
mailing list