如何使用Perl中的CGI :: Session从磁盘获取过期的会话数据？

Question

我使用CGI :: Session，在删除之前无法找到从磁盘检索过期会话数据的方法。 “注意：所有过期的会话都是空的”。但也许有办法如何从磁盘重新加载或读取此文件。请帮帮我。谢谢。

Answer 1

取决于您使用的驱动程序。使用默认值：

perl -mCGI::Session::Serialize::default -MData::Dumper=Dumper -MFile::Slurp=read_file -e'
    for my $f (glob "/tmp/cgisess*") {
        print Dumper(CGI::Session::Serialize::default->thaw(read_file $f))
    }
'