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

...
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都是一项昂贵的操作。

谢谢