perl - 我应该如何在 Perl 中序列化代码引用？

Question

我希望有nstore一个 Perl 散列，其中还包含一个代码参考。在这个perldoc之后，我写了这样的东西：

use strict;
use warnings;
local $Storable::Deparse = 1; 
my %hash = (... CODE => ...);
nstore (\%hash, $file);

我得到一个警告说Name "Storable::Deparse" used only once: possible typo at test4.pl line 15.。我想我可以专门压制这个警告，但这让我想知道我是否做错了什么。

注意这个问题与这个有关。最欢迎使用不同的标题来区分两者。

Answer 1

代码引用不能简单地序列化。文件句柄、数据库连接和任何具有外部资源的东西都不能简单地序列化。

在对此类项目进行序列化时，您必须以可以重新创建它们的方式描述它们。例如，您可以将文件句柄序列化为路径，将偏移量或代码引用序列化为引用指向的函数的名称。

您可以找到代码引用指向的子例程的名称Sub::Identify：

#!/usr/bin/perl

use strict;
use warnings;

use Sub::Identify qw/sub_fullname/;

sub foo {}

my $r = \&foo;

print sub_fullname($r), "\n";

当然，这意味着您不能序列化匿名引用，并且序列化的数据只能被以相同方式实现命名函数的程序可靠地使用。

如果您发现自己需要这样做，您最好使用类而不是简单的代码引用。

Answer 2

在设置其配置值之一之前，您忽略了加载 Storable 模块。

use strict;
use warnings;
use Storable qw(nstore);
local $Storable::Deparse = 1; 
my %hash = (... CODE => ...);
nstore (\%hash, $file);

Answer 3

你还需要设置

$Storable::Eval = 1;

因此：

#! perl

use strict;
use warnings;

use Storable qw /nstore retrieve/;


local $Storable::Deparse = 1; 
local $Storable::Eval = 1; 

my %hash = ( CODE => sub {print "ahoj\n";});


nstore (\%hash, 'test');
my $retrieved = retrieve ( 'test');

$retrieved->{CODE}();