小编Fre*_*vin的帖子

我需要写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)]);