Выполнение скрипта при нажатии кнопки

28.11.2013, 21:48. **Показов** 1337. **Ответов** 0

Студворк — интернет-сервис помощи студентам

Добрый вечер! Все было прекрасно, до одного момента. Буду признателен за помощь

Код приведен ниже
проблема в том, как сделать так чтобы результаты заносились в текстовый файл ТОЛЬКО ЕСЛИ НАЖАТЬ НА КНОПКУ
на данный момент результаты заносятся в текстовый файл даже если просто обновить страницу(

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
#!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;

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .