perl - 如何在 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))
    }
'