First page Back Continue Last page Summary Graphic

summary.cgi

#!/usr/bin/perl
open(INF,"survey.out"); @data = <INF>; close(INF);
$count = 0; $ratings = 0;
foreach $i (@data) {chomp($i);
($name,$email,$rating,$boxes) = split(/\|/,$i);
$count++; $ratings = $ratings + $rating; @invlist =split(/,/,$boxes);
foreach $j (@invlist) { $involved{$j}++; }}#end foreach
$avg_rating = int($ratings / $count);
print <<EndHTML;
<html><head><title>Survey Results</title></head><body>
Total visitors: $count<p>Average rating: $avg_rating<p>
Involvement in <br><ul><li>Website Design: $involved{'des'}
... EndHTML}

Notes: