dig域名-阿里云开发者社区

dig域名

2017-11-12 859

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介：

#!/usr/bin/perl

#use warnings;
use strict;
use Parallel::ForkManager;
use JSON::XS;
use Net::DNS::Nslookup;
use Net::Nslookup;
use POSIX qw(strftime);
use Digest::MD5;

`[ -d ./logs ] || mkdir logs`;
my $listPath = "./domain-list";
my $dropPath = "./domain-drop";
my $logsPath = "./logs/";

our $dmList = {};
our $time   = time;

open IN, "$listPath";
open my $DRP, "> $dropPath";
my $pm = Parallel::ForkManager->new(50);
while (<IN>){
my $res = $_;
my $rr = '';
chomp $res;
$pm->start and next;
     my @fields = split(",", $res);
     if(defined $fields[0] && defined $fields[1]) {
       my $domain = "$fields[0].lv$fields[1].cloudglb.com";
       $rr = $fields[1] eq 3 ? getArr($domain) : getCname($domain);
       print "==[$rr]=$domain==\n";
       if($rr eq 0){
          syswrite $DRP ,"${domain}\n";
       }
     }
$pm->finish;
}
$pm->wait_all_children;
close IN;
close $DRP;

dmJson("$dropPath");
my $toPost = JSON::XS->new->encode($dmList);
open OUT, "> ${logsPath}${time}";
print OUT $toPost;
close OUT;

my $tokenUrl = token();
print "==$tokenUrl==\n";
#`wget --post-file=${logsPath}${time} http://****/${tokenUrl}/ -SO /server/script/logs/out-$time`;

sub dmJson() {
my   $dmFile = shift;
open RES, "$dmFile";
while (<RES>) {
    my $dmName = $_;
    chomp $dmName;
    next if $dmName eq "";
    $dmList->{"$dmName"} = "${time}";
}
close RES;
return $dmList;
}

sub getCname {
    my $dmName = shift;
    my @digRes = nslookup(host=>$dmName, type=>"CNAME");
       return @digRes ? 1 : 0;
}

sub getArr {
    my $dmName = shift;
    my $rr = Net::DNS::Nslookup->get_ips($dmName);
       return $rr eq '' ? 0 : 1;
}

sub token(){
my $day = strftime "%Y%m%d", localtime(time);
my $md5 = Digest::MD5->new;
     $md5->add('hello world!!!!!');
my $tmd5= $md5->hexdigest;
     $md5->add("$day$tmd5");
return $md5->hexdigest;

}

本文转自cloves 51CTO博客，原文链接:http://blog.51cto.com/yeqing/1681655

dig域名

热门文章

最新文章

相关电子书