Реферат: Практический Перл для начинающего

<td width="410" height="53" valign="top"><p align="left"><small>Вынеуказали

свое имя, E-mail, либо не заполнили сам текст Вашего

отзыва. Вернитесь, пожалуйста, на страницу формы

и заполните требуемые поля.</small></p>

<p align="center"><a href="add_guestbook.pl">Назад</a> </td>

</tr>

</table>

</div>

<table>

<tr>

<td width="10" height="53" valign="top"></td>

</tr>

</table>

</body>

</html>

HTML

}

else # все данные правильно введены

{

# Если все поля заполнены правильно, то начинаем их обрабатывать.

$Text=~tr/\r\n/ /; #заменяем перевод строки на пробел

# Если в текстовом поле формы (text box) посетитель нажимал Enter,

# то нужно убрать символы перевода строки, чтобы можно было записать

# все поля формы в одну строку файла.

if ($Work eq '') {$Work=' '}; #если пусто - то пробел

# Если поле не заполнено, то оно равно пробелу.

$Name=~s/&/ /g;

$Work=~s/&/ /g;

$Text=~s/&/ /g;