dig域名

#!/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 $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