#!/usr/bin/perl  
 
use strict;  
 
use warnings;  
 
use Net::SSH::Expect;  
 
   
 
open(my $out, "log.txt") or die "Could not open log: $!\n";  
 
   
 
##### Step 1, read subnet.txt  
 
open(my $in, "<subnet.txt") or die "Could not open subnet.txt: $!\n";  
 
while(<$in>) {  
 
        chomp;  
 
          
 
        ##### Step 2: run getzoneprof, and keep first 4 lines only  
 
        my @getzoneprof = `getzoneprof -u Xxx -p Xxx -a $_ -o Orig`;  
 
        @getzoneprof = @getzoneprof[0..3];  
 
          
 
        ##### Find server name  
 
        warn "Server not found for $_\n",next unless $getzoneprof[-1] =~ /dnsServers=(\S+)/;  
 
        my $dns = $1;  
 
          
 
        ##### ssh to server  
 
        my $ssh = Net::SSH::Expect->new (  
 
          host => $dns,  
 
          password=> '12345',  
 
          user => 'richsark',  
 
          );  
 
          
 
        my $login_output = $ssh->login();  
 
        unless($login_output =~ /Last Login/) {  
 
               warn "Login has failed. Login output was $login_output";  
 
               next;  
 
        }  
 
          
 
        ##### run ls to look for files  
 
        my $ls = $ssh->exec("ls /opt/rich/sark/*.jnl");  
 
        $found='no';  
 
        $found='yes' if $ls =~ m|/opt/rich/sark/|;  
 
        print $out "From zone $_ containing dnsserver \"$dns\" found=$found of presense of \"jnl\" files\n";  
 
          
 
        $ssh->close;  
 
}  
 
   
 
close($out);

... 
open (...); 
my $seen_hosts = {}; 
while(<$in>) { 
    ... 
    next if exists($seen_hosts->{$dns}); 
    $seen_hosts->{$dns} = 1; 
    ... 
}

... 
unless($login_output =~ /Last Login/) {   
      warn "Login has failed. Login output was $login_output"; 
      $ssh->close;  
      next; 
} 
...

... 
##### Parse hostnames from the dnsServers line.  
my $serverLine = $getzoneprof[-1]; 
# You should check that $getzoneprof[-1] actually contains a dnsServers line here. 
$serverLine =~ s/dnsServers=//; # Remove the prefix. 
my @servers = (); 
foreach my $token (split(/,/, $serverLine)) { #split the server line on the commas. 
    $token =~ /(\S+)/;  # Look for the first "word" of the token. 
    push (@servers, $1) if $1; 
} 
# You should also check that you got at least 1 server here. 
foreach my $dns (@servers) { 
    # Do something with the dns server. 
}

#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
use Net::SSH::Expect; 
 
open(my $out, "log.txt") or die "Could not open log: $!\n"; 
 
##### Step 1, read subnet.txt 
open(my $in, "<subnet.txt") or die "Could not open subnet.txt: $!\n"; 
 
# Keep track of hosts we've seen before. 
my %seenHosts; 
 
while(my $zone = <$in>) { 
    # In long loops it's better to read <$in> to a local variable instead of relying on $_. 
    chomp($zone); 
 
    ##### Step 2: run getzoneprof, and keep first 4 lines only 
    my @getzoneprof = `getzoneprof -u Xxx -p Xxx -a $zone -o Orig`; 
    @getzoneprof = @getzoneprof[0..3]; 
 
    ##### Parse hostnames from the dnsServers line. 
    my $serverLine = $getzoneprof[-1]; 
 
    # check that $getzoneprof[-1] actually contains a dnsServers line here. 
    unless ( $serverLine =~ /dnsServers/ ) { 
        print "Can't get a dnsServers line from getzoneprof -a $zone\n"; 
        next; 
    } 
 
    $serverLine =~ s/dnsServers=//; # Remove the prefix. 
 
    my @servers = (); 
    foreach my $token (split(/,/, $serverLine)) { #split the server line on the commas. 
        $token =~ /(\S+)/; # Look for the first "word" of the token. 
        push (@servers, $1) if $1; 
    } 
 
    unless (scalar(@servers)) { 
        print "Can't parse a dns server from \"dnsServers=$serverLine\"\n"; 
        next; 
    } 
 
    foreach my $dns (@servers) { 
        next if exists($seenHosts{$dns}); 
        $seenHosts{$dns} = 1; 
 
        ##### ssh to server 
        my $ssh = Net::SSH::Expect->new ( 
            host => $dns, 
            password=> '12345', 
            user => 'richsark', 
        ); 
 
        my $login_output = $ssh->login(); 
        unless($login_output =~ /Last Login/) { 
            warn "Login has failed. Login output was $login_output"; 
            # Make sure we close the ssh session if we abort the loop. 
            $ssh->close; 
            next; 
        } 
 
        ##### run ls to look for files 
        my $ls = $ssh->exec("ls /opt/rich/sark/*.jnl"); 
        my $found='no'; 
        $found='yes' if $ls =~ m|/opt/rich/sark/|; 
 
        print $out "From zone $zone containing dnsserver \"$dns\" found=$found of presense of \"jnl\" files\n"; 
 
        $ssh->close; 
    } 
 
} 
 
close($out);

... 
my $login_output; 
eval { 
    $login_output = $ssh->login();  
    unless($login_output =~ /Last Login/) { 
        # The die will be caught in the if ($@) {} block, below. 
        die "Login output was $login_output"; 
    }  
}; 
# Capture "normal" login errors + $ssh method exceptions. 
if ($@) { 
    print "\$ssh->login() failed: $@\n"; 
    $ssh->close(); 
    next; 
} 
...

   
 
#!perl  
 
use strict;  
 
use warnings;  
 
use Net::SSH::Expect;  
 
   
 
open(my $out, ">log.txt") or die "Could not open log: $!\n";  
 
   
 
my %Processed;  
 
   
 
##### Step 1, read subnet.txt  
 
open(my $in, "<subnet.txt") or die "Could not open subnet.txt: $!\n";  
 
while(<$in>) {  
 
        chomp;  
 
          
 
        ##### Step 2: run getzoneprof, and keep first 4 lines only  
 
        my @getzoneprof = `./richsark-getzoneprof.exe -u xXx-p XxX -a $_ -o Sark1`;  
 
        @getzoneprof = @getzoneprof[0..3];  
 
          
 
        ##### Find server name  
 
        warn "Server not found for $_\n",next unless $getzoneprof[-1] =~ /dnsServers=(.+)/;  
 
        my $dns_line = $1;  
 
                my @dns = grep {length($_)>1} split(/[\s,]+/, $dns_line);  
 
          
 
        foreach my $dns (@dns) {  
 
print next if $Processed{$dns};  
 
                $Processed{$dns} = 1;  
 
            
 
          ##### ssh to server  
 
                my $ssh = Net::SSH::Expect->new (  
 
            host => $dns,  
 
            password=> '12345',  
 
            user => 'rich',  
 
                    raw_pty => 1,  
 
                    timeout => 10  
 
   
 
            );  
 
            
 
my $login_output;   
 
eval {   
 
    $login_output = $ssh->login();    
 
    unless($login_output =~ /IT IS AN OFFENSE TO CONTINUE/) {   
 
        # The die will be caught in the if ($@) {} block, below.   
 
        die "Login output was $login_output";   
 
    }    
 
};   
 
# Capture "normal" login errors + $ssh method exceptions.   
 
if ($@) {   
 
    print "\$ssh->login() failed: $@\n";   
 
    $ssh->close();   
 
    next;   
 
}  
 
   
 
   
 
##### run ls to look for files  
 
                my $found='no';  
 
                print "init: found=$found\n";  
 
                my $ls = $ssh->exec("ls /opt/richsark/named/*.jnl");  
 
                $found='yes' if($ls and $ls =~ m|/opt/richsark/named/|);  
 
                print "ls-1: found=$found\n";  
 
                $ls = $ssh->exec("ls /opt/richsark/named/sec_richsark/*.jnl");  
 
                $found='yes' if($ls and $ls =~ m|/opt/richsark/named/sec_richsark/|);  
 
                print "ls-2: found=$found\n";  
 
   
 
        print $out "From zone $_ containing dnsserver \"$dns\" found=$found of presense of \"jnl\" files\n\n";  
 
            
 
          $ssh->close;  
 
        }  
 
}  
 
   
 
close($out);