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

Question

我需要写2个不同的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

查看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
      )

  ]
);