Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

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?


Comment on Re: Maintaining PHP session in PERL
Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (3)
As of 2015-11-29 01:44 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (746 votes), past polls