Get Cookie values without using CGI.pm

[championc]

Hi all,

I need to be able to read the value of a cookie with Perl. I have recently moved my website onto a hosted Windows environment but for some reason, any perl scripts relying on CGI.pm just will not work.

Therefore, can someone please post a perl script that I can use to retrieve Cookie values.


Cormac
Dublin
Ireland

[championc]

Hi all,

Forgive my lack of knowledge but I finally found the following code which works perfectly to retrieve ALL cookies from a given site. However, how would I amend it to retrieve just one specific cookie

print "\nReload for Cookies:<BR>";
%cookies = &getCookies; # store cookies in %cookies

foreach $name (keys %cookies) {
print "\n$name = $cookies{$name}<br>";
}

sub getCookies {
local(@rawCookies) = split (/; /,$ENV{'HTTP_COOKIE'});
local(%cookies);

foreach(@rawCookies){
($key, $val) = split (/=/,$_);
$cookies{$key} = $val;
}

return %cookies;
}


Cormac

[kevinpham]

Try this

sub Cookie{
   my ($cookiename) = @_;
   my @cookies = split(/\s*;\s*/, $ENV{'HTTP_COOKIE'});
   foreach (@cookies){
     my @tokens = split(/=/, $_);
     return $tokens[1] if($tokens[0] == $cookiename);
   }
   return '';
}

[championc]

Sorry, i'm a bit lost. If I had a cookie called "MyCookie", how could I retrieve it's value only?


Cornac

[kevinpham]

Use the function that was given in earlier thread, then call it with the cookie name you want

i.e

my $cookie = &Cookie("MyCookie");

where "MyCookie" is the cookie in question, and $cookie will hold the cookie value, if any