#!/usr/bin/perl use CGI; # Sends Errors to Browser use CGI::Carp qw(fatalsToBrowser); $query = new CGI; $prog_file = "programs.txt"; # Gets Data open(PROGS,$prog_file); @programs=; close(PROGS); # Reorders data and puts each program into list element $index = 0; @list = (); foreach $program (@programs){ chomp($program); ($file, $title, $dir, $dloads) = split(/\|/,$program); @list[$index] = $dloads . "|" . $file . "|" . $title . "|" . $dir; $index++; } # Sorts Data $length = scalar @list; for ($p = 1; $p < ($length-1); $p++) { for ($q = 0; $q < ($length-$p); $q++) { ($dloads, $file, $title, $dir) = split(/\|/,@list[$q]); ($dloads_a, $file_a, $title_a, $dir_a) = split(/\|/,@list[$q+1]); if ($dloads < $dloads_a) { $temp = @list[$q]; @list[$q] = @list[$q+1]; @list[$q+1] = $temp; } } } # Displays Data print $query->header; print< List of Programs Sorted by Downloads

List of Programs Sorted by Downloads
HOME >> Program Archives >> List of Programs Sorted by Downloads

Tired of having to search through the entire Program Archives to find a good program? Well, your search is over. Below is list of all the programs in the BASIC Guru Online Program Archives ordered by the number of times they have been downloaded. This way you can see which are the most popular downloads. It's highly likely that those programs near the top of the list are good programs and worth the download.

Programs ordered alphabetically

Members ordered by number of downloads

Members ordered by number of programs

-- Downloads program directly (.zip file)

HEADING $total = 0; for ($num = 0; $num < $length; $num++) { ($dloads, $file, $title, $dir) = split(/\|/,@list[$num]); 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 Program Downloads
$rank $title $dloads
TOTAL: $total




Problems with this page?
Contact the Webmaster.
FINISH