Perl安全会话

Question

我想知道在Perl中是否有任何方法可以将会话cookie（CGISESSID）属性isSecure设置为true？我知道至少在php中它很容易：

ini_set('session.cookie_secure', 1);

在Perl中是否有类似的方法？

转发至Perlmonks。

Answer 1

假设您使用CGI :: Cookie构建您的cookie并且$ headers是HTTP :: Headers对象，您可以使用以下代码：

require CGI::Cookie;
my $cookie = CGI::Cookie->new(
    -name => 'testcookie', -value => 'testvalue', -secure => 1);
$headers->push_header(set_cookie => $cookie->as_string);

+ - 拼写错误

HTH