如何在运行时修改Perl Memoize模块的缓存条目

你手动修改缓存失败的核心原因是用错了缓存键：Memoize不会把子例程引用作为缓存存储的键——就算你写对了子例程引用的规范写法\&readFlag，这个键也和Memoize实际使用的键不匹配。Memoize的缓存键完全由子例程的入参归一化生成，对于你这个无入参的readFlag方法，首次调用后存入%cache的键是空参数列表对应的归一化值，你传入子例程引用当键赋值只会新增一条无关条目，自然不会更新原有缓存。

方案1：直接操作绑定的缓存哈希（适配现有代码，无额外依赖） #

对于无参数调用的记忆化子例程，Memoize在SCALAR_CACHE中存储的键是空数组引用[]，直接给这个键赋值即可覆盖原有缓存，后续所有调用都会直接返回新值：

$cache{[]} = $newVal;

如果你的readFlag后续增加了入参，缓存键会对应调整为「按入参顺序组成的数组引用」，比如调用readFlag(1, 'test')对应的缓存键是[1, 'test']。你可以在首次调用readFlag后打印%cache的所有键自行验证，避免键写错。

方案2：清空缓存触发重载（如果需要让逻辑重新从文件读值） #

如果你不需要直接塞固定值，而是想让下次调用重新执行子例程读文件拿最新值，可以直接用Memoize自带的缓存清空函数，不用关心键的规则：

# 清空readFlag的所有缓存，下次调用会重新执行子例程逻辑
Memoize::flush_cache('readFlag');

Perl的记忆化缓存是进程级隔离的，如果你提到的「所有运行中的脚本」是互相独立的Perl进程，修改当前进程的内存缓存不会同步到其他进程。跨进程同步需要修改持久化存储（比如你读取标识位的源文件），或者使用进程间共享的缓存组件。如果是单进程内的不同模块、代码段调用readFlag，修改缓存后所有调用都会拿到更新后的值。

内容的提问来源于stack exchange，提问作者vishnuvp