Kevin Vance - Not getting to do any programming at work is getting to me. Also, I…

Entries | Archive | Friends | Friends' Friends | User Info

05:52 pm

Wednesday, June 16th, 2004
Previous Entry Share Next Entry
Not getting to do any programming at work is getting to me. Also, I wanted to do that comment meme that everyone was doing. So, last night, I did this:

         LJ Comment stats for kvance         
         ---------------------------         

          kvance ******************** 1540
        suppafly ************         353
           lipid **********           227
        techpimp **********           199
          kartos *********            186
          bitman *********            183
              md *********            169
     nonexistent ********             145
         duinlas ********             141
         devingt ********             128
          teferi ********             123
             thp *******              104
           piman *******              102
             pvx *******              99
           axiem *******              97
          zztzed ******               92
            jzig ******               85
          nearby ******               82
       the_chuck ******               80
           pyrop ******               72
           gregw ******               71
       ladyvyxen *****                68
            brad *****                68
             xdt *****                66
           casey *****                65

Total Commenters: 181
Total Comments: 5788

Report generated Wed Jun 16 17:48:04 2004 by kvance's lj_comment_stats 1.0

For some reason, waking up has been difficult this week. I overslept 30 minutes yesterday, and an hour this morning.

Anyway, maybe I'll play around with my lj_comment_stats program some more, and watch Doctor Who. That should be it for today.

Current Music Romeo knight - Dyna blasters endtune (Nectarine Demoscene Radio)
Link )Reply )

Comments
[User Picture]From: suppafly
2004-06-16 10:00 pm (UTC)
oh yeah!
(Reply) (Thread)
[User Picture]From: axiem
2004-06-16 11:12 pm (UTC)
Can we get source? :)
(Reply) (Thread)
[User Picture]From: kvance
2004-06-16 11:32 pm (UTC)
Sure. I still want to add html output, and have some more options. But when it's done...
(Reply) (Parent) (Thread)
[User Picture]From: axiem
2004-06-17 12:09 am (UTC)
Heh, I suppose I should ask what language it's in, first :P
(Reply) (Parent) (Thread)
[User Picture]From: kvance
2004-06-17 12:53 am (UTC)
Python, which has been my pet language since I took the Semantic Web course at UMD.
(Reply) (Parent) (Thread)
[User Picture]From: axiem
2004-06-17 01:10 am (UTC)
Damn! I don't have a python environment on my computer! :D

...not that I have a perl one, either.

I'm becoming a Perl Geek. Is that a Bad Thing?
(Reply) (Parent) (Thread)
[User Picture]From: kvance
2004-06-17 01:25 am (UTC)
The best thing about perl is that there is almost always a direct mapping from the problem-in-my-head to perl. This is somewhat less true for python, in return for the end result being more readable. Both good choices :)
(Reply) (Parent) (Thread)
[User Picture]From: axiem
2004-06-17 01:44 am (UTC)
Forgiving HTML:

#!/usr/bin/perl -w
while (<>)
{/<(comment|usermap) id='(\d+)' (posterid|user)='([\w\d]+)'/;
$1 eq "comment" and $commenthash{$3}++;
$1 eq "usermap" and $userhash{$2} = $3;
}
foreach sort keys $userhash {print "$userhash($_) with $commenthash($_)"}

...I know that doesn't work. It also doesn't handle anonymous.

But it's a start, I suppose.

Not that I have a Perl enviornment, anyways.
(Reply) (Parent) (Thread)
[User Picture]From: nearby
2004-06-17 04:23 am (UTC)

hooray for text-based things

kev, you are rad
(Reply) (Thread)
[User Picture]From: kvance
2004-06-17 09:59 pm (UTC)

Re: hooray for text-based things

Thanks! Text is easier.
(Reply) (Parent) (Thread)