[perl] Cookies
Делаю куку так, например:
$cookUserName = new CGI::Cookie(-name => 'username', -value => $user);
print "Set-Cookie: $cookUserName\n";
а когда получаю эту куку в скрипте так:
my %cookies = fetch CGI::Cookie;
$user = $cookies{'username'};
то в $user будет что-то такое: 'username=user1; path=/'
что за '; path=/'? Из-за этого приходится дополнительно вырезать значение кука.
$cookUserName = new CGI::Cookie(-name => 'username', -value => $user);
print "Set-Cookie: $cookUserName\n";
а когда получаю эту куку в скрипте так:
my %cookies = fetch CGI::Cookie;
$user = $cookies{'username'};
то в $user будет что-то такое: 'username=user1; path=/'
что за '; path=/'? Из-за этого приходится дополнительно вырезать значение кука.