如何为Perl Web服务实现服务器端速率限制？

发布时间：2020-12-15 23:21:26 所属栏目：大数据来源：网络整理

导读：我有一个基于Perl的CGI /快速CGI Web服务,并希望通过IP地址对客户端进行速率限制,以阻止侵略性客户端造成太多工作. 我查看了一些代码并在CPAN中找到了Algorithm::TokenBucket,但这是针对客户端请求的;它没有持久性,没有每用户配置,因此对服务器端速率限制没

我有一个基于Perl的CGI /快速CGI Web服务,并希望通过IP地址对客户端进行速率限制,以阻止侵略性客户端造成太多工作.

我查看了一些代码并在CPAN中找到了Algorithm::TokenBucket,但这是针对客户端请求的;它没有持久性,没有每用户配置,因此对服务器端速率限制没有用.

我正在寻找已经存在的东西的建议,否则我需要基于一些简单的持久性来推动我自己,例如绑定到每个IP地址DB_File和一些执行令牌管理的批处理作业.

解决方法

我通过跟踪每个IP地址的命中率来使用 Cache::FastMmap进行速率限制.这是一个缓存,因此数据会随着时间的推移而过期,但如果您设置了大小和到期时间,这应该不是问题.

IP地址是散列键,散列值是时间戳数组.我有第二个数据结构(也由Cache::FastMMap支持),它是一个禁止IP地址的哈希值,根据第一个结构的数据进行更新.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!