#!/usr/bin/perl use strict; # # Formular fuer die Abstimmung #
; chomp($line); ($quest,$numalt) = split(/:/,$line); for ($i = 0; $i < $numalt; $i++) { $line = ; chomp($line); ($text[$i], $voting[$i]) = split(/:/,$line); } flock(DATA, 8); # unlock close(DATA); } sub update { my $i = 0; $voting[$vote]++; # update votings open(DATA,">$poll") || die("Cannot open $poll for writing"); flock(DATA, 2); # exclusive lock print DATA $quest . ":" . $numalt . "\n"; for ($i = 0; $i < $numalt; $i++) { print DATA $text[$i]. ':' . $voting[$i] . "\n"; } flock(DATA, 8); # unlock close (DATA); } sub percent { my $sum = 0; my $i = 0; for ($i = 0; $i < $numalt; $i++) { $sum = $sum + $voting[$i]; } for ($i = 0; $i < $numalt; $i++) { $percent[$i] = 0.00; if ($voting[$i] > 0) { $percent[$i] = sprintf("%5.2f",($voting[$i]*100/$sum)); } } } sub result { my $i = 0; my $ip = 0; print qq~ Poll

Vielen Dank für Ihre Teilnahme an der Abstimmung zur Frage
$quest.

~; }