Скрипт viewres.pl

#!C:/apache/bin/perl/perl

# Вывод поля заголовка о типе содержимого
print "Content-type: text/html\n\n";

# Подключаемые модули
require '_stdlib.pl';

# Вызов подпрограммы формирования начального блока кода
&start('Голосование');

# Вызов подпрограммы чтения конфигурационного файла
&readconf;

# Получение статистики
if(-e 'stats.txt')
{
open(STATS, 'stats.txt');
$inline = <STATS>;
chomp($inline);
@stats = split('\|', $inline);
close(STATS);

if(scalar(@stats) != $varqty)
{
print "<p><span style=\"color: #f00; font-weight:
bold\">Ошибка!</span> Файл статистики не соответствует настройкам
голосования.</p>\n";
&stop;
}
}
else
{
print "<p><span style=\"color: #f00; font-weight: bold\">Ошибка!</span>
Файл статистики отсутствует.</p>\n";
&stop;
}

# Подсчет голосов
for($i = 0; $i < $varqty; $i++)
{
$sum = $sum + $stats[$i];
}

@sstats = sort({$b <=> $a} @stats);
$max = $sstats[0];

# Вывод статистики
print "<p><strong>Результаты голосования:</strong></p>\n\n";

for($i = 0; $i < $varqty; $i++)
{
$proc = int($stats[$i] / $sum * 100 + .5);
$len = int($stats[$i] / $max * $maxlen + .5);
$len = 1 if($len < 1);
print "<p>$vars[$i]: $stats[$i] ($proc%)</p>\n";
print "<div class=\"diag\" style=\"width: $len";
print "px\"> </div>\n";
}

print "<p>Всего проголосовало: $sum\.</p>\n";

# Вызов подпрограммы формирования конечного блока кода и завершения работы
&stop;
Описанное выше приложение можно найти на компакт-диске, прилагаемом к этой книге, в директории \examples\05\04-08.


© 2008-2018 ОптимизацияВебСайтов.ру


Любое использование текстового и графического контента сайта без активной ссылки на источник не доскается.