Реферат: Практический Перл для начинающего
Name - имя, фамилия, отчество, кличка - на усмотрение посетителя
Work - профессия, род занятий
RadioButton - три кнопки: понравилось (Good), не понравилось (Bad), пофигу (Different)
Text - text box комментариев и примечаний
Email - обратный адрес
add_guestbook.pl - запись в книгу
#! e:\perl5\perl
# Первая строка, как обычно
require "ssi-pl.pl";
# Я использую навигационную панель в виде SSI-включения. Для этого используется модуль ssi-pl.pl
if (($ENV{'QUERY_STRING'} eq '') or ($ENV{CONTENT_LENGTH}=0) )
{
# Если нет входных данных, то генерируем страницу с формой
print <
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>Книга жалоб и предложений</title>
</head>
<body background="../images/background_new.jpg">
<div align="left">
<table border="0" width="630" height="49">
<tr>
<td width="200" height="45"></td>
<td width="430" height="45"><p align="center"><img src="../images/guestbook.GIF"
alt="Книгажалоб" WIDTH="258" HEIGHT="60"></td>
</tr>
</table>
</div><div align="left">