#!/usr/bin/perl -- use strict; use warnings; use CGI(); use CGI::Session(); my( $oneid, $twoid); { my $one = CGI::Session->new or die CGI::Session->errstr; my $two = CGI::Session->new or die CGI::Session->errstr; $one->param( is => 'is one'); $two->param( is => 'is two'); $oneid = $one->id; $twoid = $two->id; } { my $bob = CGI::Session->load( $oneid ) or die CGI::Session->errstr +; my $dod = CGI::Session->new( $twoid ) or die CGI::Session->errstr; warn 'bob : ', $bob->param('is'); warn 'dod : ', $dod->param('is'); } { my $cgi = CGI->new( { CGISESSID => $oneid }); my $ses = CGI::Session->load( $cgi ) or die CGI::Session->errstr; warn 'ses : ', $ses->param('is'); } __END__ bob : is one at cgi-session-ex.pl line 22. dod : is two at cgi-session-ex.pl line 23. ses : is one at cgi-session-ex.pl line 29.
In reply to Re: CGI::Session appears to be overwriting itself
by Anonymous Monk
in thread CGI::Session appears to be overwriting itself
by bradcathey
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |