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就行了...