Question

我需要写两个不同的cookie。这就是我正在使用的。写第一个但不是第二个。感谢。

use CGI::Cookie qw();
use Digest::MD5 qw(md5_hex);#for cookie

print CGI::header(-cookie => [CGI::Cookie->new(
-name => '_SESSION',
-value => $cookiedata,
-expires=> $session_length, 
-path=>'/', 
-domain=> $owner, 
-secure=>$secure)]);

print CGI::header(-cookie => [CGI::Cookie->new(
-name => $username,
-value => $username,
-expires=> $session_length, 
-path=>'/', 
-domain=> $owner, 
-secure=> $secure)]);

Answer 1

看看the documentation for CGI::Cookie。它有一个发送多个cookie的例子：

print header(-cookie=>[$cookie1,$cookie2]);

不要设置值，然后设置不同的值。

设置一个值，即包含两个 Cookie的arrayref。

use CGI::Cookie qw();
use Digest::MD5 qw(md5_hex);    #for cookie

print CGI::header(
  -cookie => [
    CGI::Cookie->new(
      -name    => '_SESSION',
      -value   => $cookiedata,
      -expires => $session_length,
      -path    => '/',
      -domain  => $owner,
      -secure  => $secure
    ),
    CGI::Cookie->new(
      -name    => $username,
      -value   => $username,
      -expires => $session_length,
      -path    => '/',
      -domain  => $owner,
      -secure  => $secure
      )

  ]
);

不知道如何写2个不同的cookie

1 个答案: