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

# Если посетитель использовал символ &, то заменяем его на пробел,

# поскольку этот символ мы будем использовать для разделения наших полей в файле.

open(OutFile, ">>guestbook.txt") || die;

# Открываем файл для добавления.

$Time=localtime; #получаем время

# Получаем время заполнения гостевой книги.

$line=join('&', $Time, $Name, $Work, $RadioButton, $Text, $Email, $ENV{REMOTE_HOST});

# И, наконец, слепляем все поля формы в одну строку. На всякий случай добавляем в конце

# IP адрес посетителя, взятый из переменных окружения.

print OutFile "$line\n";

close OutFile;

# Записываем полученную строку в файл и закрываем его.

# Осталось только сказать посетителю спасибо.

# выводим сообщение о успехе

print "Content-type: text/html\n\n";

print "<html>\n" ;

print "\n" ;

print "<head>\n" ;

print '<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">'."\n" ;

print '<meta name="GENERATOR" content="Microsoft FrontPage 3.0">'."\n" ;

print "<title>Книга жалоб и предложений</title>\n" ;

print "</head>\n" ;

print "\n" ;

print '<body background="../images/background_new.jpg">'."\n" ;

print '<div align="left">'."\n" ;

print "\n" ;

print '<table border="0" width="630" height="49">'."\n" ;

print " <tr>\n" ;

print ' <td width="200" height="45"></td>'."\n" ;

К-во Просмотров: 1361
Бесплатно скачать Реферат: Практический Перл для начинающего