List of Members Sorted by Downloads

#!/usr/bin/perl use CGI; # Sends Errors to Browser use CGI::Carp qw(fatalsToBrowser); $query = new CGI; $user_file = "members.txt"; open(USERS,$user_file); @users=; close(USERS); $index = 0; @list = (); foreach $member (@users){ chomp($member); (@members) = split(/\|/,$member); @list[$index] = $members[19] . "|" . $members[0] . "|" . $members[1] . "|" . $members[18]; $index++; } $length = scalar @list; for ($p = 1; $p < ($length-1); $p++) { for ($q = 0; $q < ($length-$p); $q++) { ($dloads_a, $userid_a) = split(/\|/,@list[$q]); ($dloads_b, $userid_b) = split(/\|/,@list[$q+1]); if ($dloads_a < $dloads_b) { $temp = @list[$q]; @list[$q] = @list[$q+1]; @list[$q+1] = $temp; } } } # Displays Data print $query->header; print< List of Members Sorted by Downloads

List of Members Sorted by Downloads

HOME >> Members >> List of Members Sorted by Downloads

Are you a member and want to see how you stack up to the other members with programs? Well, below is a list of all the members with programs, ordered by the number of times their programs have been downloaded.

Members ordered by User ID\#

Members ordered by number of programs

Programs ordered by number of downloads

HEADING $total = 0; for ($num = 0; $num < $length; $num++) { ($dloads, $userid, $name, $progs) = split(/\|/,@list[$num]); if ($progs > 0) { if (($num % 2) == 0) { $color = "ADD8E6"; } else { $color = "FFFFFF"; } $rank = $num + 1; print< LIST $total += $dloads; } } if ($color eq "FFFFFF") { $color = "ADD8E6"; } else { $color = "FFFFFF"; } print<

Rank	Member	Downloads
$rank	$name	$dloads
TOTAL:		$total

Problems with this page?
Contact the Webmaster. FINISH