мета-данные страницы
Загрузка не удалась. Возможно, проблемы с правами доступа?
Различия
Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слеваПредыдущая версияСледующая версия | Предыдущая версия | ||
perl:ex [09/10/2012 16:44] – vlasov | perl:ex [04/04/2017 17:30] (текущий) – [Урок 8: Работа с ключиками в CGI.pm] vlasov | ||
---|---|---|---|
Строка 30: | Строка 30: | ||
Образец задания 3 [[: | Образец задания 3 [[: | ||
+ | |||
+ | **Более простое упражнение.** Взять некоторый многострочный текстовой файл произвольного содержания, | ||
+ | |||
+ | Файл для упражнения | ||
===== Урок 4: регулярные выражения ===== | ===== Урок 4: регулярные выражения ===== | ||
Строка 68: | Строка 72: | ||
Примерный образец реализации такого задания может быть [[: | Примерный образец реализации такого задания может быть [[: | ||
[[http:// | [[http:// | ||
+ | |||
+ | **Отметим**, | ||
+ | |||
+ | [[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(" | ||
+ | }; | ||
+ | </ |