Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Maintaining PHP session in PERL

by dpavlin (Friar)
on Feb 10, 2005 at 13:44 UTC ( #429711=note: print w/ replies, xml ) Need Help??


in reply to Maintaining PHP session in PERL

It's quite simple:

#!/usr/bin/perl -w use strict; use PHP::Session; use CGI::Lite; use Data::Dumper; my $session_name = 'PHPSESSID'; # change this if needed print "Content-type: text/plain\n\n"; my $cgi = new CGI::Lite; my $cookies = $cgi->parse_cookies; if ($cookies->{$session_name}) { my $session = PHP::Session->new($cookies->{$session_name}); # now, try to dump _s_pod variable from session print "_s_pod:",Dumper($session->get('_s_pod')); } else { print "can't find session cookie $session_name"; }
Disclamer: I'm still not using PHP::Session in production, but this seem to work good enough for me.
Hum, should this example should go into module documentation?

2share!2flame...


Comment on Re: Maintaining PHP session in PERL
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://429711]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (12)
As of 2014-12-19 15:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (85 votes), past polls