Long-time readers of this journal will note that I record my own music. I don’t get a lot of feedback on this forum about my music and, really, why would I? Since I’m on vacation, have a internet connection and a lot of time to kill, I decided to grep through the apache logs of taskboy and see who, if anyone else, is listening to my music.

The results surprised me.

Here are the hostnames/IP addresses of my “fans”. Some of them are clearly robots (which is expected since I use a lot of synth vox). Others a personal friends whom I badger into listening to my stuff. The rest are complete strangers. The number to the right indicates the number of time that host has downloaded mp3 files from taskboy.

p50802BA7.dip0.t-ipconnect.de 7 8 gate2.progressive.com 8 8 ncgent02.telenet-ops.be 8 gw.exalead.com 9 pool-162-83-159-64.ny5030.east.verizon.net 9 AToulouse-201-2-1-131.w193-251.abo.wanadoo.fr 9 10 bgp530310bgs.ebrnsw01.nj.comcast.net 10 ma-plymouthcenter4a-a-57.albyny.adelphia.net 12 inktomi3-pop.server.ntl.com 12 atrax0.pa-x.dec.com 14 intout.cbc.ca 14 adaroknas01-pool0-a8.adarok.tds.net 16 extractor.singingfish.com 16 17 c-24-147-209-83.ne.client2.attbi.com 18 ma-plymouthcenter4a-a-101.albyny.adelphia.net 18 h0001026eb619.ne.client2.attbi.com 18 dsl093-004-058.det1.dsl.speakeasy.net 21 c-24-118-186-83.mn.client2.attbi.com 22 crawler1.crawler918.com 22 dialip191.spinn.net 22 cpe.atm4-0-51291.0x50c6d2f6.bynxx8.customer.tele.dk 25 cpe.atm2-0-5152.0x50c6e6ba.bynxx10.customer.tele.dk 26 drunkenwhores.com 26 d226-105-211.home.cgocable.net 28 cpe.atm4-0-51458.0x50c7669a.bynxx8.customer.tele.dk 29 h005004190393.ne.client2.attbi.com 29 38 n186175.ap.plala.or.jp 39 validator.singingfish.com 45 cr005r01-test.sac2.fastsearch.net 59 mp3cr001.sac2.fastsearch.net 438

It appears I’m big in Germany, a nation known for their love of irony and a strong, driving beat. Also notice that DrunkenWhores.com is way into my stuff and who can blame them?

Here’s the one-liner I used to extract this information from my 25M access log:

bash-2.03$ cat access.log | grep “mp3” | perl -MSocket -lane ‘$ip{$F[0]}++; END{ for(sort{$ip{$a} <=> $ip{$b}} keys %ip){ next if $ip{$} < 5; printf “%15s %3d\n”, (gethostbyaddr(inetaton($), AFINET) || $), $ip{$}}}’

Yes, I know that one-arg cat(1) is evil, but it works.

[Original use.perl.org post and comments.]