Ceridan1. Есть форма, есть программа обработчик формы на перле...
Я могу написать на JS функцию генерации новой динамической страничкки при нажатии на кнопку SUBMIT, но как сделать так, чтобы страничка возвращаемая cgi-программой не заменяла страницу с формой, а заменяла бы эту динамическую страницу или же как на перле генерить новую динамическую страницу нужного мне размера?
Думаю я правильно понял вопрос.
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.
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser); # For debuging
## Создаем интерфейс для работы с CGI
my $cgi = new CGI;
print "Content-type: text/html\n\n";
print "
<html>
<head>
<title>Тест</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows- 1251 \">
<body>";
## Определяем действие
my $action = $cgi->param('action');
if ( !$action || $action eq "feedback" ) { &feedback; }
elsif ( $action eq "feedback_result" ) { &feedback_result; }
sub feedback {
print qq|
<form method="post">
Имя<br>
<input type="text" name="name"><br>
Фамилия<br>
<input type="text" name="last_name"><br>
Сообщение<br>
<textarea cols="30" rows="5" name="message"></textarea><br>
<input type="hidden" name="action" value="feedback_result">
<input type="submit">
</form>
|;
}
sub feedback_result {
print "
Имя: " . $cgi->param('name') . "<br>
Фамилия: " . $cgi->param('last_name') . "<br>
Сообщение: " . $cgi->param('message') . "<br>
";
}
print "</body>
</html>";
1 ;
Данного примера должно хватить.
