如果文件少于X天，如何从磁盘读取文件，如果更旧，则重新获取html文件

Question

我希望从互联网上读取一个html文件并缓存它。 然后当我回去时，因为我正在调试，我不想用我需要的众多请求来锤击服务器。 我不想因为我正在调试而一次又一次地抨击服务器而禁止我的IP。 所以我的代码需要看起来像：

if ((file > days_old) || !(file exists))
   fetch html file from internet
   save file to disk
else
   read it from the disk

因为会有多个文件，所以我需要在文件名中包含一个变量名，这样文件就是唯一的，我可以轻松地查找它。

我刚刚学习了这个学期的Perl，我们只学习了基础知识和一些正则表达式，一旦得到这个，我应该会很好。

谢谢！

Answer 1

使用现有模块：

• 缓存::缓存

• HTTP ::缓存::透明

如果你真的想要实现自己的，你需要查看If-Modified-Since和ETag HTTP标 days_old确定何时重新获取文件，而不是你从拇指中抽出的任意days_old数字。 您还必须生成唯一的文件名，最好使用哈希函数，同时保留原始URL以应对哈希冲突。