Wikipedia talk:List of Wikipedians by number of edits

Interesting page. Generated with an SQL query?

Also, this brings up the issue again: who are the active contributors? Certainly not all the user accounts. I guess there's no point in deleting the ones not being used? Or is there? --KQ

Two SQL queries actually, since I do not know enough SQL to know whether it is possible to check the current and the old ones at once. After that I added the numbers up by hand, and used Unix 'sort' to get them in the right order.

As for deleting unused user accounts: I could imagine there would be some use in it, as it would free up the username for a new user. However, such things get important only when we have ten thousands rather than hundreds of users, I think. Andre Engels

It would be very interesting to find out who has made contributions in the last six months say... that would tell you who has probably lost interest in the project and those old accounts could be deleted in a giant housecleaning expedition. KJ

107. It's a rude awakening. But at least I am better than Larry Sanger ;-))

These counts are from the database, which didn't exist until the installation of Magnus's Phase II software. It therefore undercounts those who contributed to the project in its early days--Larry Sanger, Tim Shell, me, Magnus, and probably others. --LDC

Including me. :-P (but, really, all that cut-n-paste of CIA info etc. probably shouldn't be counted.) --KQ

A more interesting query might be "Most active in the last month" (or other similar time period)... -- Khendon

Yes, I agree. THat would be cool too. --KQ 20:09 Sep 21, 2002 (UTC)

Hmm, I'm on the list two times, as IPs and 'myself' (possibly three times (one .xxx)) . If I combine all three I leap up to 21st, how sad. User:TwoOneTwo

I'm on the list twice too. Emphasizes how little I leave the house, I guess. --KQ

I've modified my script to combine some usernames. See below for the script & full list. --Brion 22:57 Sep 21, 2002 (UTC)

Hmm. Shortly after I joined the project in January I recall hearing that Larry Sanger hit 5000 edits. Yet his total on this list is less than half that. Did UseMod and the conversion miss over half of Larry's edits or am I not remembering things correctly? --mav

UseMod scrapped the history of an article after a few weeks, keeping only the most recent revisions. He should definitely be higher on the list. --KQ 21:33 Sep 21, 2002 (UTC)

Here's the perl script used to generate the list, in case anybody else wants to update it. (It's ugly and hackish, forgive me.):

# Save the results of the following queries to 'curs' and 'olds' respectively:
#  SELECT count(*),cur_user_text FROM cur GROUP BY cur_user_text
#  SELECT count(*),old_user_text FROM old GROUP BY old_user_text 

%equivs = (
	"KoyaanisQatsi" => "Koyaanis Qatsi",
    "Koyaanisqatsi" => "Koyaanis Qatsi",
    "Koyaansqatsi2350" => "Koyaanis Qatsi",
    "Larry_Sanger" => "Larry Sanger",
    "LarrySanger" => "Larry Sanger",
    "LeeDanielCrocker" => "Lee Daniel Crocker",
    "Magnus" => "Magnus Manske",
    "ManningBartlett" => "Manning Bartlett",
    "Perry@bebbington.org" => "Perry Bebbington",
    "Ray G. Van De Walker" => "Ray Van De Walker",
    "Simon_J_Kissane" => "Simon J Kissane",
    "CareyEvans" => "Cary Evans",
    "Chris_mahan" => "Chris mahan",
    "ChuckSmith" => "Chuck Smith",
    "Dave_McKee" => "Dave McKee",
    "David_spector" => "David spector",
    "DickBeldin" => "Dick Beldin",
    "F. Lee Horn" => "F. Lee Horn",
    "GregLindahl" => "Greg Lindahl",
    "Greg_Lindahl" => "Greg Lindahl",
    "66.47.62.78" => "H. Jonat",
    "66.47.62.xxx" => "H. Jonat",
    "HannesHirzel" => "Hannes Hirzel",
    "JimboWales" => "Jimbo Wales",
    "62.253.64.7" => "TwoOneTwo",
    "62.253.64.xxx" => "TwoOneTwo"
);

open CUR, "<curs";
while ($x = <CUR>) {
	chomp $x;
	$x =~ /^([0-9]+) ([\x20-\xff]+[\S])[\x1-\x20]*$/;
	if($equivs{$2}) { $u = $equivs{$2}; } else { $u=$2; }
	$count{$u} = $1;
}


print qq(<table border="1">\n);

open OLD, "<olds";
while ($x = <OLD>) {
    chomp $x;
	$x =~ /^(\d+) ([\x20-\xff]+[\S])[\x1-\x20]*$/;
    if($equivs{$2}) { $u = $equivs{$2}; } else { $u=$2; }
	$count{$u} += $1;
}

@count2 = map { { ($_ => $count{$_}) } } 
              sort { $count{$b} <=> $count{$a}
                     or $b cmp $a
                   } keys %count;

$maxcount = 200;

foreach $x (@count2) {
    $n++;
    ($u, $c) = each %$x;
    print qq(<tr><td align="right">$n<td>$u<td align="right">$c\n);
    last if ($n >= $maxcount);
}

print qq(</table>\n);