#!/usr/bin/perl -w #-------------------------------------------------------------------------- # This PERL Script is Copyright 2000 # by KitchenMedia - Holden Richards # Unauthorized reuse of this script is # punishable by applicable laws. #-------------------------------------------------------------------------- print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print "The Top Ten\: Writers Pick Their Favorite Books\n"; print " \n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; print "\n"; print "
\n"; print "
\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "\n"; print "
\n"; print "
\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "

\n"; print "Here are the top 25 number ones from all the 10 top ten lists posted:\n"; print "

\n"; $count = 0; $datafile = "topten.data"; open(z,"<$datafile") || die "Can't open $_ "; while (!eof(z)) { $line = ; $count = $count +1; my @test=split(/\|/,$line); $key=@test[0]; $username=@test[1]; $number_one=@test[2]; $number_two=@test[3]; $number_three=@test[4]; $number_four=@test[5]; $number_five=@test[6]; $number_six=@test[7]; $number_seven=@test[8]; $number_eight=@test[9]; $number_nine=@test[10]; $number_ten=@test[11]; $author_one=@test[12]; $author_two=@test[13]; $author_three=@test[14]; $author_four=@test[15]; $author_five=@test[16]; $author_six=@test[17]; $author_seven=@test[18]; $author_eight=@test[19]; $author_nine=@test[20]; $author_ten=@test[21]; $date=@test[22]; $number_one =~ s/\"//ig; $number_one =~ s/\ /\ /ig; if ($line =~ m@([0-9a-zA-Z])@g ) { push @one, $number_one; push @all, $number_one; push @all, $number_two; push @all, $number_three; push @all, $number_four; push @all, $number_five; push @all, $number_six; push @all, $number_seven; push @all, $number_eight; push @all, $number_nine; push @all, $number_ten; } } close(z); @onesort = sort (@one); $lastline = 'snape'; $count = 0; foreach (@onesort) { $line = $_; if (($line =~ /$lastline/i) || ($lastline =~ /snape/)) { $count = $count + 1; $lastline = $line; } if ($line !~ /$lastline/i) { if ($count == 1) { $count = "01"; } if ($count == 2) { $count = "02"; } if ($count == 3) { $count = "03"; } if ($count == 4) { $count = "04"; } if ($count == 5) { $count = "05"; } if ($count == 6) { $count = "06"; } if ($count == 7) { $count = "07"; } if ($count == 8) { $count = "08"; } if ($count == 9) { $count = "09"; } push @ones, "Votes: ".$count." Book: ".$lastline.""; $count=1; $lastline = $line; } } if ($count == 1) { $count = "01"; } if ($count == 2) { $count = "02"; } if ($count == 3) { $count = "03"; } if ($count == 4) { $count = "04"; } if ($count == 5) { $count = "05"; } if ($count == 6) { $count = "06"; } if ($count == 7) { $count = "07"; } if ($count == 8) { $count = "08"; } if ($count == 9) { $count = "09"; } push @ones, "Votes: ".$count." Book: ".$line.""; @onesort2 = sort (@ones); @onesort3 = reverse (@onesort2); print "

\n"; print "

\n"; $ocount = 0; foreach (@onesort3) { if ($ocount < 26) { $ocount = $ocount + 1; print "$_
\n"; } } print "

\n"; print "

\n"; print "Here are the top 25 books most mentioned from all the top 10 lists posted:\n"; print "

\n"; print "

\n"; @allsort = sort (@all); $lastline = 'snape'; $count = 0; foreach (@allsort) { $line = $_; if (($line =~ /$lastline/i) || ($lastline =~ /snape/)) { $count = $count + 1; $lastline = $line; } if ($line !~ /$lastline/i) { if ($count == 1) { $count = "01"; } if ($count == 2) { $count = "02"; } if ($count == 3) { $count = "03"; } if ($count == 4) { $count = "04"; } if ($count == 5) { $count = "05"; } if ($count == 6) { $count = "06"; } if ($count == 7) { $count = "07"; } if ($count == 8) { $count = "08"; } if ($count == 9) { $count = "09"; } push @alls, "Votes: ".$count." Book: ".$lastline.""; $count=1; $lastline = $line; } } if ($count == 1) { $count = "01"; } if ($count == 2) { $count = "02"; } if ($count == 3) { $count = "03"; } if ($count == 4) { $count = "04"; } if ($count == 5) { $count = "05"; } if ($count == 6) { $count = "06"; } if ($count == 7) { $count = "07"; } if ($count == 8) { $count = "08"; } if ($count == 9) { $count = "09"; } push @alls, "Votes: ".$count." Book: ".$line.""; @allsort2 = sort (@alls); @allsort3 = reverse (@allsort2); print "

\n"; print "

\n"; $tcount =0; foreach (@allsort3) { if ($tcount < 26) { $tcount = $tcount + 1; print "$_
\n"; } } print "

\n"; print "See the last 20 posted lists\n"; print "

\n"; print "See All previously posted lists\n"; print "

\n"; print "See Editor J. Peder Zane's Top Ten List\n"; print "

\n"; print "See some statistics\n"; print "

\n"; print "


\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "		\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "

\n"; print "
\n"; print "
\n"; print "
\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; print "All Material Copyright ©\; 2007 Not for use without permission \n"; print "
\n"; print "

\n"; print "
\n"; print "\n"; print "\"buy\n"; print "\"about\n"; print "\"your\n"; print "\"about\n"; print "\"the\n"; print "\"for\n"; print "\n"; print "\n"; print "\n"; print "\n"; exit;