мета-данные страницы
  •  
Загрузка не удалась. Возможно, проблемы с правами доступа?

Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

Предыдущая версия справа и слеваПредыдущая версия
Следующая версия		Предыдущая версия
perl:ex [28/02/2017 08:37] – [Урок 7: без использования модуля CGI.pm] Владимир Власовperl:ex [04/04/2017 10:30] (текущий) – [Урок 8: Работа с ключиками в CGI.pm] Владимир Власов
Строка 77: Строка 77:
 [[perl:testcgi|тестовая страничка на Баше]] [[perl:testcgi|тестовая страничка на Баше]]
  
 +===== Урок 8: Работа с "ключиками" в CGI.pm =====
 +
 +Скрипт ниже первым делом пытается считать ключик с именем "mucoo", и если ключик определен, то выводится его значение. Если ключик не определен, то он создается. Значение выбирается по текущему времени в секундах: %%$t = time();%% а время жизни --- один час. При этом выводится вся возможная информация о ключике с именем "mucoo". [[http://users.nsunc.com/~vlasov/cgi-bin/cookie.cgi|Действующий скрипт доступен здесь.]]
 +
 +<code perl>
 +#!/usr/bin/perl
 +
 +use CGI qw(:standard);
 +$coo = cookie("mucoo");
 +if (defined($coo)) {
 +#if (1) {
 +  print header(-charset=>"utf-8");
 +  print start_html("Your cookie"), p("You cookie was: <b>$coo</b>"),  end_html();
 +} else {
 +  $t = time();
 +  $coo = cookie(-name => "mucoo", -value => $t, -expires => "+1h");
 +  print header(-charset=>"utf-8",-cookie=>$coo);
 +  print start_html("Setting cookie"), p("You cookie is now: <b>$coo</b>"),  end_html();
 +};
 +</code>