我试图编写一个持续/缓存脚本。代码将类似于以下内容:
有没有一种方法可以调用这个脚本,使其在多次调用之间保持状态。假设初始化“%my_hash”和调用“extract_values_from_file”都是昂贵的操作。谢谢。
...
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”都是昂贵的操作。谢谢。