Страничка, созданная
в предыдущей лабораторной работе должна формироваться динамически по введенным
параметрам через броузер на сервер. Первоначально броузер должен сформировать
форму в которую вводится текстовая часть, имена файлов рисунков и ссылки
на HTML документы. Программа, которая получает данные, обрабатывает их
и динамически формирует страничку, написана на языке Perl.
Задание.
Ваша итоговая Web-страничка должна содержать:
1.Ваше фото;
2.Краткое описание, кто Вы;
3.Ссылку на Ваш наиболее читаемый документ;
4.Две ссылки на Ваши любимые пейзажи.
Причем в каждой ссылке должно находиться по 2-3 фото;
Примеры форм:
ismm25> cat form1_l2.html
<html>
<head>
<title>Simple form</title>
</head>
<body>
<form method=post action="http://www.tup.km.ua:8082/ismm25/form1_l2.pl">
<b>Введите информацию о себе:</b>
<br>
<input name="user" value="" size=50>
<br>
<b>Введите имя файла рисунка:</b>
<br>
<input name="foto" value="1.jpg" size=15>
<br>
<b>Введите адрес ссылки</b>
<br>
<input name="link" value="" size=40>
<br>
<input type="submit" value="Ввести!">
</form>
</body>
</html>
ismm25> cat form2_l2.html
<html>
<head>
<title>Simple form</title>
</head>
<body>
<form method=post action="http://www.tup.km.ua:8082/ismm25/form1_l2.pl">
<b>Введите информацию о себе:</b>
<br>
<textarea name="user" rows=10 cols=60>
</textarea>
<br>
<b>Введите файл рисунка:</b>
<br>
<input name="foto" value="1.jpg" size=15>
<br>
<b>Введите адрес ссылки</b>
<br>
<input name="link" value="" size=40>
<br>
<input type="submit" value="Ввести!">
</form>
</body>
</html>
Замечание: эти файлы должны размещаться
в каталоге public_html
Пример программы:
ismm25> cat form1_l2.pl
#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
my $user=param('user');
my $foto=param('foto');
my $link=param('link');
print
header(-charset=>'Windows-1251'),
start_html('form1.pl'),
"<HR>",
"<CENTER><FONT COLOR='#FF0000'><font
size=5>
Добро пожаловать на мою страничку!</font></FONT></CENTER>",
"<HR>",
"<CENTER><FONT COLOR='#3333FF'><h3>Мое
фото</h3></FONT></CENTER>",
"<CENTER><IMG SRC='http://www.tup.km.ua:8082/~ismm25/pics/$foto'></CENTER>",
"<br>",
$user,
"<A HREF='$link'> здесь.</A>",
end_html;
Замечание: эта программа должна
находится в подкаталоге cgi-bin, созданного в каталоге public_html
Пример программы-перекодировщика:
ismm25> cat cod.pl
#!/usr/bin/perl
print "Input name file:";
$fil=<STDIN>;
open(OLD,"$fil");
@oldfile=<OLD>;
close(OLD);
$i=0;
foreach $aa (@oldfile)
{
$aa=~s/\r//g;
$newfile[$i]=$aa;
$i++;
}
open(NEW,">$fil");
print NEW @newfile;
close(NEW);
Замечание: эта программа также
должна находится в подкаталоге cgi-bin, созданного в каталоге public_html.
Перед запуском программ на Perl, необходимо в каталоге, где она находится,
дать команду chmod +x cod.pl или chmod +x form1_l2.pl
Для просмотра, как работает эта лабораторная работа, нажми сюда или сюда