мета-данные страницы
Загрузка не удалась. Возможно, проблемы с правами доступа?
Различия
Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слеваПредыдущая версия | Последняя версияСледующая версия справа и слева | ||
perl:ex [28/02/2017 15:37] – [Урок 7: без использования модуля CGI.pm] vlasov | perl:ex [04/04/2017 17:29] – [Урок 7: без использования модуля CGI.pm] vlasov | ||
---|---|---|---|
Строка 77: | Строка 77: | ||
[[perl: | [[perl: | ||
+ | ===== Урок 8: Работа с " | ||
+ | |||
+ | Скрипт ниже первым делом пытается считать ключик с именем " | ||
+ | |||
+ | <code perl> | ||
+ | # | ||
+ | |||
+ | use CGI qw(: | ||
+ | $coo = cookie(" | ||
+ | if (defined($coo)) { | ||
+ | #if (1) { | ||
+ | print header(-charset=>" | ||
+ | print start_html(" | ||
+ | } else { | ||
+ | $t = time(); | ||
+ | $coo = cookie(-name => " | ||
+ | print header(-charset=>" | ||
+ | print start_html(" | ||
+ | }; | ||
+ | </ |