policyサーバを書こうと思ってnet/p5-Net-RBLClientをいじる。mail/p5-Mail-RBLもあるけど、並列に問い合わせしないし、細かいチューニングができない。 #!/usr/bin/perl use warnings; use strict; use Net::RBLClient; my $rbl = Net::RBLClient->new( lists => [ qw{ sbl.spamhaus.org bl.spamcop.net list.dsbl.org xbl.spamhaus.org } ], query_txt => 1, timeout => 5, ); $rbl->lookup('127.0.0.2'); # my @listed_by = $rbl->listed_by; my %listed_hash = $rbl->listed_hash;