#!/var/local/couch/bin/perl &header; open(FILE, "POLL.TXT"); @file_info = ; close(FILE); &get_data(@file_info); &print_results(@file_info); &footer; exit(0); sub print_results { #tabulate the survey results my(@file_info) = @_; my($i, $j, $k, $species, $male,$female); my(@species_name) = ("Beaver", "Ferret", "Muskrat", "Mouse", "Opposum"); my(@species_count) = (0,0,0,0,0); my(@qcount) = ([0,0,0], [0,0,0],[0,0,0]); my(@qresponse) = ("Yes", "No", "DK"); my(@qn) = ("Q1", "Q2", "Q3"); my(@qlabel) = ("1. Merge Muskrat Mounds and Beaver Town School Districts?", "2. Use bond revenue to build a hockey arena?", "3. Retain Judge Finneas Ferret?"); foreach $i(0..$#file_info) { #print the summary statistics for each hash key $female++ if ($file_info[$i]{'Sex'} eq "Female"); $male++ if ($file_info[$i]{'Sex'} eq "Male"); foreach $j(0..$#species_name) { #count the species $species_count[$j]++ if($file_info[$i]{'Species'} eq $species_name[$j]); } foreach $j(0..$#qn) {#count each opinion, put in matrix foreach $k(0..$#qresponse) { $qcount[$j][$k]++ if ($file_info[$i]{$qn[$j]} eq $qresponse[$k]); } } } print "The Survey Results

\n"; print "\n"; print "\n"; print "\n"; print "
Sex
Female Male
$female $male

**Sex**
Female	Male
$female	$male

\n"; print "\n"; print "\n"; foreach $i(0..$#species_name){ print "\n";} print "\n"; foreach $i(0..$#species_name){ print "\n";} print "
Species
$species_name[$i]
$species_count[$i]

**Species**
$species_name[$i]
$species_count[$i]

\n"; print "\n"; print "\n"; foreach $i(0..@{qcount}) { #print the matrix of opinion questions and responses print "\n"; foreach $j(0..@{$qcount[$i]}) {print "\n";} print "\n"; } print "
Survey Questions
Question Yes No Don't Know
$qlabel[$i] $qcount[$i][$j]
\n"; } sub get_data { #Use Steps 1 -6 to get and decode the data #Create an array of hashes for each respondent my($size, $form_size, $key, $value, $i, $j, $element); my(@fields); my(@file_info) = @_; $i = 0; foreach $element(@file_info) {#parse the data --> create an array of hashes $element =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg; @fields = (split(/&/, $element)); $hash_size = @fields; for ($j=0; $j < $hash_size; $j++){ ($key, $value) = (split /=/, $fields[$j]); $value =~ s/[;<>\{\}\*\|'`\&\$!#:"\\]/\ $1/g; $value =~ s/[+]/\ $1/g; chomp($value); $file_info[$i]{$key} = $value; } $i++; } @_ = @file_info; } sub header {# print the header for the HTML page print "Content-type: text/html", "\n\n"; print "\n"; print "\n"; } sub footer {# print the footer for the html page print ""; }