{"id":49,"date":"2007-07-04T13:16:09","date_gmt":"2007-07-04T11:16:09","guid":{"rendered":"http:\/\/bergs.biz\/blog\/2007\/07\/04\/preventing-flooding-in-perl\/"},"modified":"2008-04-16T16:35:22","modified_gmt":"2008-04-16T14:35:22","slug":"preventing-flooding-in-perl","status":"publish","type":"post","link":"https:\/\/bergs.biz\/blog\/2007\/07\/04\/preventing-flooding-in-perl\/","title":{"rendered":"Preventing flooding in Perl"},"content":{"rendered":"<p>I&#8217;m using a small Perl script to send SMS for Nagios notifications. Up to now I didn&#8217;t have <em>any <\/em>flood control (i. e. logic that limits the rate of messages to be sent) built into the script, which made me feel bad (especially since I had already been SMS-bombed a while ago when the link to the servers to be monitored broke down).<\/p>\n<p>My search for some Perl sample code that implements flood control led me to <a href=\"http:\/\/www.perl.com\/pub\/a\/2004\/11\/11\/floodcontrol.html\" target=\"_blank\">an article on Perl.com<\/a> and the CPAN Perl package <a href=\"http:\/\/search.cpan.org\/dist\/Algorithm-FloodControl\" target=\"_blank\">Algorithm::FloodControl<\/a>, which does exactly what I need and which is easy to use at the same time. I very much recommend this package.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>I&#8217;m using a small Perl script to send SMS for Nagios notifications. Up to now I didn&#8217;t have any flood control (i. e. logic that limits the rate of messages to be sent) built into the script, which made me feel bad (especially since I had already been SMS-bombed a while ago when the link [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4,7],"tags":[21],"class_list":["post-49","post","type-post","status-publish","format-standard","hentry","category-computers","category-development","tag-perl"],"_links":{"self":[{"href":"https:\/\/bergs.biz\/blog\/wp-json\/wp\/v2\/posts\/49","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/bergs.biz\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/bergs.biz\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/bergs.biz\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/bergs.biz\/blog\/wp-json\/wp\/v2\/comments?post=49"}],"version-history":[{"count":0,"href":"https:\/\/bergs.biz\/blog\/wp-json\/wp\/v2\/posts\/49\/revisions"}],"wp:attachment":[{"href":"https:\/\/bergs.biz\/blog\/wp-json\/wp\/v2\/media?parent=49"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/bergs.biz\/blog\/wp-json\/wp\/v2\/categories?post=49"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/bergs.biz\/blog\/wp-json\/wp\/v2\/tags?post=49"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}