检测邮件服务器IP是否被列入实时黑名单的脚本

用perl写的，实时黑名单列表可以自己添加。

注意：一定要选择没有被劫持的DNS服务器（比如google的8.8.8.8、8.8.4.4）。如果非得用被劫挂的，需要在后面添加代码判断返回的IP是否为127.X.X.X，如果不是则一般不是被列入黑名单。

?

#!/usr/bin/perl -w
use Net::Nslookup;
use strict;
my @rbl=qw/l2.apews.org b.barracudacentral.org bl.spamcop.net cblplus.anti-spam.org.cn dnsbl.njabl.org dnsbl.sorbs.net rbl.anti-spam.cn sbl-xbl.spamhaus.org zen.spamhaus.org /;

print "please input the IP:";
chomp(my $IP = <STDIN>);

my @IP = split /W/,$IP; ?? @IP = reverse @IP; my $PI = join ".",@IP; #my $PI="$IP[3].$IP[2].$IP[1].$IP[0]"; foreach my $rbl (@rbl) { my $host=($PI.".$rbl"); print "Looking up ",$rbl,"n"; my $addr = nslookup(host=>$host,type=>"A"); if($addr){ print "*_*!*_*!*_*!In the blacklist $rbl*_*!*_*!*_*!n"; $addr= ""; } #else {print "$IP is not in the RBL.n"}? }