perl - 如何跨请求缓冲日志记录 - Perl，log4Perl

Question

我正在寻找一种仅在给定时间范围内捕获特定阈值之后发生的特定问题的方法。

例如

1. 我的 Web 应用程序使用一组通过 POST 发送的密钥
2. 我将密钥列入白名单，因此我只在 POST 中寻找应用程序使用的特定密钥
3. 但是，我想跟踪任何不寻常且不属于我的列表的键
4. 但是，我不想跟踪未列出的密钥的每一次出现——以防这只是一个试图通过的机器人
5. 但是，一旦一个特定的未列出的键达到阈值——比如一周内 100 次——我想记录它。

我如何使用 Perl 来完成这个任务，最好是使用 log4Perl 之类的东西？

谢谢！

Answer 1

我认为答案是“使用哈希”。

在您的应用程序中定义哈希。每次收到错误请求时，提取唯一键，增加该键的哈希值。一旦值达到阈值，就会发出警告。（然后重置它）。

如果您需要跨会话持久性，您可能会使用类似Storable加载和保存“无效请求”表的方法。