Need Help on CGI::Cookie

balaji_red83 has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks, I created a following cookie in a login page,


    my $c = new CGI::Cookie(
                -name       => 'USER',
                -path       => '/',
                -value      => $userid,
                -domain     => getdomain(),
               );

    print "Set-Cookie: $c\n";
[download]

And I am trying to retrieve the value of the above cookie in a new page using the below code.

%cookies = fetch CGI::Cookie;
$user = $cookies{'USER'};
print "$user";
[download]

But for some reason I could not able to get the cookie value. Can anyone please throw light on this? Thanks in advance.

Comment on Need Help on CGI::Cookie Select or Download Code

Replies are listed 'Best First'.
Re: Need Help on CGI::Cookie by moritz (Cardinal) on Sep 07, 2007 at 14:38 UTC
Reading through CGI::Cookie suggests that you have to use `$user = $cookies{'USER'}->value;` What exactly does I could not able to get the cookie value. mean? Is it always undef? Do you `use strict` and warnings? Did you confirm that the cookie was set indeed? (most browsers let you view all cookies) Perl 6 in German	[reply] [d/l] [select]
Re^2: Need Help on CGI::Cookie by Anonymous Monk on Sep 07, 2007 at 14:58 UTC
Thanks for your time, moritz. I tried using, `$user = $cookies{'USER'}->value;` but it does not work either. I use strict and warnings. And your correct, it always print undef. when I print the environmental variables, I found that cookie is not set. Please let me know what else I need to check? Thanks again.	[reply] [d/l]
Re^3: Need Help on CGI::Cookie by moritz (Cardinal) on Sep 07, 2007 at 16:21 UTC
If the cookie is not set, you have to debug the part where the cookie should be set. Try to query that CGI page with `wget --server-response $url` and paste the headers here. Perl 6 in German	[reply] [d/l]