0

我正在尝试从 perl 脚本访问现有的 php 会话。我可以看到 php 到 perl 的示例,但不能看到 perl 到 php。我最大的问题是正确访问 /tmp 目录。我拥有所有适当的权限,只是找不到如何捕获会话。我看到了所有 /tmp/sess~ 文件,但我找不到任何接近工作示例的东西来告诉我如何使用它。

#!/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();
4

1 回答 1

3

有很多方法可以存储会话数据。PHP 使用一种方式。CGI::Session使用另一个。你不能CGI::Session用来阅读 PHP 会话。改为使用PHP::Session

于 2013-04-17T08:28:26.127 回答