Форум программистов [Powered by Invision Power Board]

Код

#!c:/perl/bin/perl.exe
#/usr/bin/perl
use Fcntl;
use CGI;
$query = CGI->new;
use CGI::Carp qw (fatalsToBrowser);
$CGI::POST_MAX=2000000;
@params=$query->param;
foreach $name (@params)
 {
 $value=$query->param($name);
 $FORM{$name}=$value;
 }
print "Content-type: text/html\n\n";
# вывод заголовков
# плюс общее меню
print <<HTML;
<html><head>

<form action="Vse.pl">
<input type="hidden" name=work value=usp_fam>
<p align="center">Подсчитать успеваемость по тестам</p> 
<p align="center"><INPUT type="submit" value="Подсчитать"></p>
</form>

</body>
HTML

if ($FORM{'work'} eq "usp_fam")
{
open testresults, 'testresults.dat' or die "Невозможно открыть testresults.dat: $!";
open(F1,"> Успеваемость студентов/Успеваемость_по_тесту.txt");
#Ключевые переменные!
@test=('Основы языка Perl','Основы языка HTML','Основы работы в сети Интернет');
#Ключевые переменные!
$i=-1; $n=-1;
while (<testresults>) {
chomp;
$n++;
($date[n],$kod[$n],$name_test[$n],$surname[$n],$name[$n],$father_name[$n],$group[$n],$mark[$n],$mark1[$n],$mark2[$n],$r[$n],$q[$n]) = split(/\|\|/);
}

$c=@surname;
$c=$c-1;
$k=0;
$p=@test;
$p=$p-1;

for ($i=0;$i<=$c;$i++){
if ($mark[$i]>=$mark1[$i] && $mark[$i]>=$mark2[$i]) {($max[$i]=$mark[$i])} elsif ($mark1[$i]>=$mark[$i] && $mark1[$i]>=$mark2[$i]) {($max[$i]=$mark1[$i])} elsif ($mark2[$i]>=$mark1[$i] && $mark2[$i]>=$mark[$i]) {($max[$i]=$mark2[$i])};
}

while ($k<=$p){
for ($i=0;$i<=$c;$i++){
if ($test[$k] eq $name_test[$i]) {($all_mark[$k]++)};
if ($test[$k] eq $name_test[$i] && $max[$i]>=3) {($well_mark[$k]++)};
if ($test[$k] eq $name_test[$i] && $max[$i]>=4) {($good_mark[$k]++)};
}
$k++;
}

for ($k=0;$k<=$p;$k++){
$uspev[$k] = $well_mark[$k] / $all_mark[$k] * 100;
$well_uspev[$k] = $good_mark[$k] / $all_mark[$k] * 100;
}

print (F1 "Название группы     Успеваемость     Качеств. успеваемость");
print (F1 "\n");
print (F1 "\n");
$k=0;
while ($k<=$p){
print (F1 $test[$k],"                    ",int $uspev[$k],"                    ",int $well_uspev[$k]);
print (F1 "\n");
$k++;
}
close testresults;
}
 exit;