Re: cgi session

Looks like you need to use "my" to scope your variables.

use CGI::Session;
use CGI;

#set up a session
my $cgi = CGI->new;
my $session = CGI::Session->new("driver:File", $cgi, {Directory=>"./tm
+p"});
my $sid = $session->id();

my $cookie = $cgi->cookie(CGISESSID => $session->id);
print $cgi->header( -cookie=>$cookie );
$sid = $cgi->cookie("CGISESSID") || undef;
$session = new CGI::Session(undef, $sid, {Directory=>'/tmp'});
[download]

non-Perl: Andy Ford

Comment on Re: cgi session Download Code

Replies are listed 'Best First'.
Re^2: cgi session by Anonymous Monk on Dec 11, 2006 at 22:06 UTC
Thanks andy, that seemed to work. Would someone be able to give me a quick explanation of what this actually does, i pieced it together from online examples and trial and error but dont fully understand how it works. Thanks again	[reply]
Re^3: cgi session by Joost (Canon) on Dec 11, 2006 at 22:23 UTC
See perlfaq7 on lexical vs global variables and strict. Basically, if you `use strict` (and you should) variables declared with "my" can only be used from the declaration on until the end of the scope they're declared in: `sub mysub { my $var1 = 1; # here you can use $var1 } $var1 = "boo"; # compile error: there is no $var1 declared in this sco +pe.` [download] Using "my" (lexical) variables together with "strict" will significantly reduce the risk of typos or modifying "unrelated" variables. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l] [select]