Setting and reading cookies with Perl?

[Guest_imported]

I'm having trouble setting and reading cookies with a Perl script. I was wondering if anyone has a "generic" perl script that will help me accomplish my goal.

Thanks

 

[mbaranski]

Look on

http://www.cpan.org

for the perl::Cooke module, or something like that.

Disclaimer:
Beware: Studies have shown that research causes cancer in lab rats.

 

[vcherubini]

Or check

http://www.worldwidescriptmart.com

for Matt's Script Archive.

He has a cookie lib there that is pretty useful.

-Vic vic cherubini
vikter@epicsoftware.com

http://www.epicsoftware.com

====
Knows: Perl, HTML, JavScript, C/C++, PHP, Flash, Director
====

 

[goBoating]

If cookies are enabled in your browser, the following should set a cookie named 'cookThis' and with each hit of this code, the value of the cookie should swap back and forth between null and 'Some Cookie value here'.



#!/usr/local/bin/perl
use CGI;
$query = new CGI;
$thisCGI = $query->url();

# try to read the cookie via the CGI.pm method
$cookThis = $query->cookie(-name=>'cookThis');

# If the cookie exists, edit it's values.
# else, create it's values.
if ($cookThis)
{
$cookie = $query->cookie(-name=>"cookThis",
-value=>'',
-expires=>"+1h"
}
else
{
$cookie = $query->cookie(-name=>"cookThis",
-value=>"Some Cookie value here",
-expires=>"+1h"
}

# print the cookie in the header.
print $query->header(-cookie=>$cookie);
print &quot;<BR>CookThis is $cookThis<BR>&quot;;
print $query->start_html(-title=>&quot;cook this&quot;
print $query ->start_multipart_form('POST',&quot;$thisCGI&quot;
print '<BR>',$query->submit('doWhat','cook');
print $query->end_form;
print $query->end_html;


Just ask if you have questions....
HTH


keep the rudder amid ship and beware the odd typo