Shell Programming and Scripting

##### 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;

#!perl -w
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.exe, and keep first 4 lines only
print        my @getzoneprof = `./getzoneprof.exe -u 123 -p 123 -a $_ -o origid`;
        @getzoneprof = @getzoneprof[0..3];
        
        ##### Find server name
print        warn "Server not found for $_\n",next unless $getzoneprof[-1] =~ /dnsServers=(\S+)/sm;
        my $dns = $1;
        
        ##### ssh to server
        my $ssh = Net::SSH::Expect->new (
        host => $dns,
          password=> 'me',
          user => 'help'
            
          );
        
print        my $login_output = $ssh->login();
        unless($login_output =~ /Total/) {
                warn "Login has failed. Login output was $login_output";
                next;
        }
        
        ##### run ls to look for files
print        my $ls = $ssh->exec("ls /opt/rich/named/*.jnl");
        my $found='no';
print        $found='yes' if $ls =~ m|/opt/rich/named/|;
        print $out "From zone $_ containing dnsserver \"$dns\" found=$found of presense of \"jnl\" files\n\n";
        
        $ssh->close;
}
 
close($out);