0
我想从perl脚本访问现有的php会话。我可以看到PHP的示例perl,但不是PHP的perl。我最大的问题是正确访问/ tmp目录。我拥有所有适当的权限,但我无法找到如何捕获会话。 我看到了所有的/ tmp/sess〜文件,但我找不到任何接近实际示例的东西来向我展示如何实现它。perl cgi不会访问/ tmp中的php会话数据
#!/usr/bin/perl
# Script to launch the vncserver service and capture output
# Runs, displays $pid to STDOUT, but opened
# files are empty.
use strict;
use warnings;
use CGI qw();
use CGI::Session qw();
my %vars = (
COOKIE_NAME => '_SESSION',
SESSION_DIR => '/tmp',
);
my $q = CGI->new;
print $q->header;
CGI::Session->name($vars{COOKIE_NAME});
my $session = CGI::Session->new('id:md5', $q, {Directory=>$vars{'/tmp/'}});
print $session->header(-type => 'text/plain');
my $system_name = $session->param("_SESSION_ATIME");
print $system_name->output();