Question

我继承了一些使用这些会话模块的代码，这些代码模块将某种混淆的Base64文本编码存储在一个表中并对其进行解码，但似乎没有办法让我真正获取数据正确解码。

似乎使用Catalyst::Plugin::Session，但我没有运气解码任何编码或任何东西。

如果我像现在一样对数据进行解码，我会找回拉丁字符的正常文本，但基本数字之类的其他内容似乎是乱码。我已经尝试了几乎每个字符编码都没有成功。

如何解码此模块存储的数据？

代码中的实际用法如下：

$user->update({ user_id => $user->id });
$c->session->{user_name} = $user->name;

Answer 1

Agh，发现我的混淆字符串实际上是Perl以字符串形式存储哈希的恶魔方式，并且Catalyst模块似乎使用Storable来执行此操作，因此使用MIME :: Base64和Storable一起是解决方案，如下：

print thaw(decode_base64($my_stuff));