#!/usr/bin/perl open(LOG, "/var/www/data/purity_log") || die "can't open log\n"; my %total = (); my %count = (); my %high = (); my %low = (); $images{"Rice"} = "http://www.rice.edu/rice_stone_logo_4color.jpg"; $images{"Texas"} = "http://www.utexas.edu/graphics/side_nav_divider.jpg"; $images{"A&M"} = "http://tarpon.tamug.edu/~cjhall/AM.jpg"; $images{"Cornell"} = "http://cornelledu.cit.cornell.edu/img/layout/cu_logo.gif"; while(my $line = ) { # aca207d0.ipt.aol.com 59 Sun Aug 31 06:46:08 2003 if($line =~ /(\S+) (\d+)/) { my $host = $1; my $score = $2; if(($score > 0) && ($score < 100)) { update("Overall", $score); if($host =~ /rice.edu$/) { update("Rice", $score); } elsif($host =~ /utexas.edu$/) { update("Texas", $score); } elsif($host =~ /tamu.edu$/) { update("A&M", $score); } #elsif($host =~ /cornell.edu$/) { update("Cornell", $score); } else { update("Other", $score); } } } } print < Rice University 100 Question Purity Test Results

The Rice University Results

EOT foreach my $group (keys %total) { if( ($group ne "Rice") && ($group ne "Overall") ) { summary($group); } } #summary("Texas"); summary("Rice"); summary("Overall"); print <





Take the test again!
Visit the PLC

EOT sub summary() { my $group = shift; my $avg = sprintf("%.2f", $total{$group} / $count{$group}); my $hi = $high{$group}; my $lo = $low{$group}; my $cnt = $count{$group}; if(defined($images{$group})) { print "

Results Table
GroupAverageHighLowSamples
\"$group\"$avg$hi$lo$cnt\n"; } else { print "
$group$avg$hi$lo$cnt\n"; } } sub update() { my $group = shift; my $score = shift; if(!defined($total{$group})) { $total{$group} = 0; $count{$group} = 0; $high{$group} = 0; $low{$group} = 100; } if(($score > 0) && ($score < 100)) { $count{$group}++; $total{$group} += $score; if ($score > $high{$group}) { $high{$group} = $score; } if ($score < $low{$group}) { $low{$group} = $score; } } }