5

我正在尝试编写一个持久/缓存的脚本。代码看起来像这样：

...
Memoize('process_fille');
print process_file($ARGV[0]);
...
sub process_file{
    my $filename = shift;
    my ($a, $b, $c) = extract_values_from_file($filename);
    if (exists $my_hash{$a}{$b}{$c}){
        return $my_hash{$a}{$b}{$c};
    }
    return $default;
}

将在循环中从 shell 脚本调用，如下所示

value=`perl my_script.pl`;

有没有办法我可以调用这个脚本以保持它的状态。从一个电话到另一个电话。让我们假设初始化 '%my_hash' 和调用 extract_values_from_file 都是昂贵的操作。

谢谢

4

4 回答 4

13

这是一种黑魔法，但您可以在脚本__DATA__令牌之后存储状态并将其持久化。

use Data::Dumper; # or JSON, YAML, or any other data serializer
package MyPackage;
my $DATA_ptr;
our $state;
INIT {
    $DATA_ptr = tell DATA;
    $state = eval join "", <DATA>;
}

...
manipulate $MyPackage::state in this and other scripts
...

END {
    open DATA, '+<', $0;   # $0 is the name of this script
    seek DATA, $DATA_ptr, 0;
    print DATA Data::Dumper::Dumper($state);
    truncate DATA, tell DATA;  # in case new data is shorter than old data
    close DATA;
}
__DATA__
$VAR1 = {
    'foo' => 123,
    'bar' => 42,
    ...
}

在INIT块中，存储文件部分开头的位置__DATA__并反序列化您的状态。在该END块中，您重新序列化当前状态并覆盖__DATA__脚本的部分。当然，运行脚本的用户需要对脚本有写权限。

编辑为使用INIT块而不是BEGIN块 -DATA在编译阶段未设置块。

于 2012-04-27T15:21:06.340 回答
6

如果您的示例中的 %my_hash 在其最终初始化状态下大小适中，您可以简单地使用Storable、JSON::XS或Data::Dumper等序列化模块之一在运行之间将数据保持为预组装形式。当它不存在时生成一个新文件，并在它存在时从那里重新加载准备好的内容。

此外，您提到您将循环调用此脚本。一个好的策略是不要在循环内立即调用脚本，而是构建一个参数队列，然后在单次执行的循环之后将所有参数传递给脚本。脚本会设置它的环境，然后循环遍历参数来完成简单的工作，而无需为每个参数重做设置步骤。

于 2012-04-27T14:27:11.057 回答
2

您无法让脚本保持状态。一旦进程存在，任何未写入磁盘的信息都会消失。

不过，您可以通过以下几种方法来完成此操作：

  • 编写一个监听网络或 unix 套接字的守护进程。守护程序可以填充my_hash和回答从非常简单的my_script.pl. 它只需要打开与守护程序的连接，发送问题并返回答案。

  • 创建高效的查找文件格式。如果您经常需要这些信息，无论如何它可能会保留在 VFS 缓存中。

  • 设置共享内存区域。当您的脚本第一次启动时，您将信息保存在那里，然后再使用它。不过，从 Perl 脚本来看，这可能会很棘手。

于 2012-04-27T14:22:24.113 回答
0

不，不是直接的，但可以通过很多方式实现。

1) I understand **extract_values_from_file()** parses given file returning hash.
2) 1 can be made as a script, then dump the parsed hash using **Data::Dumper** into file.
3) When running my_script.pl, ensure that file generated by 2 is later than of the config file. Can achieve this via **make**
3.1) **use** the file generated by 2 to retrieve values.

同样可以通过冷冻/解冻来实现

于 2012-04-27T14:32:48.583 回答