Forum Webscript.Ru

Программирование => Perl => Тема начата: Потомзарегистрируюсь от 21 Сентября 2002, 23:17:29

Название: cooking
Отправлено: Потомзарегистрируюсь от 21 Сентября 2002, 23:17:29

Подскажите, как на перле установить cookish, да так, чтобы он автоматически удалился ровно через час? Кажется, для этого нужно получить время по Гринвичу в каком-то особом формате. Как всё это сделать?

Название: cooking
Отправлено: GotZfild от 22 Сентября 2002, 14:21:20

См. CGI::Cookie
Пример оттуда

use CGI qw/:standard/;
    use CGI::Cookie;
    # Create new cookies and send them
    $cookie1 = new CGI::Cookie(-name=>\'ID\',-value=>123456);
    $cookie2 = new CGI::Cookie(-name=>\'preferences\',
                               -expires =>  \'+1H\',
                               -value=>{ font => Helvetica,
                                         size => 12 }
                               );
    print header(-cookie=>[$cookie1,$cookie2]);
    # fetch existing cookies
    %cookies = fetch CGI::Cookie;
    $id = $cookies{\'ID\'}->value;
    # create cookies returned from an external source
    %cookies = parse CGI::Cookie($ENV{COOKIE});

Название: cooking
Отправлено: Потомзарегистрируюсь от 23 Сентября 2002, 20:25:49

Благодарю за ответ