#!/C:/Perl/bin/perl.exe
#use strict;
use CGI qw(:standard);

my $results = 'umfrage_ergebnisse.txt';
my %data = ();
my $thing = '';
my $val = 0;

print print "Content-type: text/html\n\n";
print "Hallo";

open(RESULTS, $results) or die "Ergebnisdatei konnte nicht geöffnet werden: $!";

while (<RESULTS>){
($thing, $val) = split(' ');
$data('$thing') = $val;
}

close(RESULTS);

#Gesamtsumme
$data('total')++;

#Alter
if (!param('age')){
  $data('age_na')++
} else {
    if (param('age') eq 'under18') {
    $data('age_under18')++;
    }
    elsif (param('age') eq '18to34') {
    $data('age_18to34')++;
    }
    elsif (param('age') eq '35to50') {
    $data('age_35to50')++;
    }
    elsif (param('age') eq '50plus') {
    $data('age_50plus')++;
    }
}

#Geschlecht
if (!param('sex')) {
  $data('sex_na')
} else {
    if (param('sex') eq 'male') {
    $data('sex_m')++;
    }
    elsif (param('sex') eq 'female') {
    $data('sex_f')++;
    }
}

#Perl
if (!param('perl')) {
  $data('perl_na')++;
} else {
    if (param('perl') eq 'yes') {
    $data('perl_y')++;
    }
    elsif (param('perl') eq 'no') {
    $data('perl_n')++;
    }
}

open(RESULTS, ">$results") or die "In die Ergebnisdatei kann nicht geschrieben werden: $!";

foreach $thing (keys %data) {
  print RESULTS "$thing $data{$thing}\n";
}

close(RESULTS);

print header;
print start_html('Danke');
print <<HTM;
<h1>Danke, dass Sie das Umfrageformular ausgef&uuml;llt haben!</h1>
<p>Die bisherigen Ergebnisse:</p>
<p>Geschlecht:</p>
<table border="0">
<tr>
<th>M&auml;nnlich</th>
<td>
HTM

print &prozent('sex_m'), "\n</td>\n</tr>\n";
print "<tr>\n<th>Weiblich</th>\n<td>\n";
print &prozent('sex_f'), "\n</td>\n</tr>\n";
print "<tr>\n<th>Keine Antwort</th>\n<td>\n";
print &prozent('sex_na'), "\n</td>\n</tr>\n";
print "</table>\n";

print "<p>Alter:</p>\n"

print '<table border="0">\n<tr>\n<th>Unter 18</th>\n<td>\n';
print &prozent('age_under18'), "\n</td>\n</tr>\n";
print '<tr>\n<th>18 bis 34</th>\n<td>\n';
print &prozent('age_18to34'), "\n</td>\n</tr>\n";
print '<tr>\n<th>35 bis 50</th>\n<td>\n';
print &prozent('age_35to50'), "\n</td>\n</tr>\n";
print '<tr>\n<th>&Uuml;ber 50</th>\n<td>\n';
print &prozent('age_50plus'), "\n</td>\n</tr>\n";
print '<tr>\n<th>Keine Antwort</th>\n<td>\n';
print &prozent('age_na'), "\n</td>\n</tr>\n";
print "</table>\n";

print "<p>Perl-Programmierer?\n</p>";

print '<table border="0">\n<tr>\n<th>Ja</th>\n<td>\n';
print &prozent('perl_y'), "\n</td>\n</tr>\n";
print '<tr>\n<th>Nein</th>\n<td>\n';
print &prozent('perl_n'), "\n</td>\n</tr>\n";
print '<tr>\n<th>Keine Antwort</th>\n<td>\n';
print &prozent('perl_na'), "\n</td>\n</tr>\n";
print "</table>\n";

print end_html;

sub prozent {
  if (defined $data{$_[0]}) {
    return sprintf("%.1f%%", $data{'_[0]} / $data{'total'} * 100);
  } else {
  return '0%';
  }
}