per获取php 的cookie

ymaozi

　　我能过php设置了一个setcookie('username','123456'); username的值，如果我想通过perl应该怎么获取呢？

谢谢！

ymaozi

1. 
   
2. SetCookie("jigou", $ins1['ins'], time()+3600, "/member", "163.com", 1);  这是我在php 中设的
   
3. my $cookie_username = new CGI::Cookie(
   
4.           -domain => '163.com',
   
5.           -name => 'username2',
   
6.           -value => $username,
   
7.           -path => 'member',
   
8.           -secure => '1'
   
9.          );
   
10.         my $cookie_password = new CGI::Cookie(
    
11.           -domain => '163.com',
    
12.           -name => 'jigou',
    
13.           -value => $jigou,
    
14.           -path => 'member',
    
15.           -secure => '1'
    
16.         );
    
17.         print $cgi->header(-cookie=>[$cookie_username,$cookie_password],
    
18.                            -charset=>'gb2312'
    
19.             );
    
20. 
    

复制代码

我这样不知道对不对

[ 本帖最后由 ymaozi 于 2008-1-18 11:08 编辑 ]

apile

%cookies = fetch CGI::Cookie;
http://search.cpan.org/~lds/CGI.pm-3.33/CGI/Cookie.pm
直接fetch就行了...