if (@dnsoptions) { # @dnsoptions is not empty

if (@dnsoptions and $dnsoptions[0] ne '') { # @dnsoptions is not empty

@dnsoptions = `./getobjectlst.exe -u Xxx-p Xxx -a $subnet -o rich`; 
print Dumper \@dnsoptions

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Data::Dumper; 
 
my @array; 
 
# run the script then uncomment this next line and see the difference 
#$array[0] = ''; 
 
if( @array ) { 
   print "yes\n"; 
} 
else { 
    print "no\n"; 
} 
 
print Dumper \@array;

#!perl -w 
my @dnsoptions; 
my $subnet; 
open(my $in, "<m-names2.txt") or die "Could not open m-names2.txt: $!\n"; 
while(<$in>) { 
  $subnet = $_; 
  print "Checking $subnet\n"; 
  @dnsoptions = `./getobjectlst.exe -u Xxx-p Xxx -a $subnet -o rich`; 
  if (@dnsoptions) { # @dnsoptions is not empty 
    if (join(" ",@dnsoptions) =~ /Error 48: This subnet does not exist./) { 
      print "dnsoptions contains the Error 48.\n"; 
    } else { 
      print "dnsoptions was created successfully, it's size = $#dnsoptions\n"; 
    } 
  } else { 
    print "dnsoptions is null or undefined, going on to the next subnet\n"; 
  } 
  print "====================================\n"; 
} 
close($in);

#!/usr/bin/perl 
 
usw strcit; 
use warnings; 
use Data::Dumper; 
 
open my $log, '>', 'log-external-.txt' or die "Could not open log: $!"; 
print $log "Subnet,Static,DHCP,Unused\n"; 
 
open my $dump, '>', 'dump.log' or die "failed to open 'dump.log' $!"; 
 
##### Step 1, read subnets 
open my $in, '<', 'm-names.txt' or die "Could not open m-names.txt: $!\n"; 
while( my $subnet = <$in>) { 
 
    print "Checking $subnet"; 
    chomp $subnet; 
     
    my %counts = (  
                   Static => 0, 
                   DHCP   => 0, 
                   Unused => 0, 
    ); 
     
    my @dnsoptions = `./getobjectlst.exe -u xx -p xx -a $subnet -o Rich`; 
 
    print $dump "dumping \@dnsoptions\n";     
    print $dump Data::Dumper->Dump(\@dnsoptions); 
    print $dump '=' x 25, "\n"; 
 
    if ( @dnsoptions and $dnsoptions[0] = '' ) { 
        print "dnsoptions is null or undefined, going on to the next subnet\n"; 
        next; 
    } 
 
    # Now, at this point, we may have "Error 48" in @dnsoptions, or we may have 
    # the nicely formatted output. We'll have to check for both cases here. 
    # Let's check the unsuccessful case first. The condition below checks if 
    # the first element of @dnsoptions array has the following text in it - 
    # "Error 48: This subnet does not exist." in it. 
 
 
    if (join("",@dnsoptions) =~ /Error 48: This subnet does not exist./) { 
 
        # call "getsubnetlst.exe", passing $subnet as one of the parameters 
        my @subnetpart2 = `./getsubnetlst.exe -u xx-p xx -a $subnet -t network -o Rich`; 
         
        # now loop through each element of the array @subnetpart2, which looks like this - 
        # ########################################################################## 
        # "East" "146.149.1.0" "N" "" "146.149.0.0" " " " " "255.255.255.128" 
        # ########################################################################## 
        # pick up the 2nd field from the left (e.g. 146.149.1.0 above), and pass it as 
        # a parameter to the cli "getobjectlst.exe". 
 
 
        foreach my $line ( @subnetpart2 ) { 
 
            # get the 2nd field from the left 
            my $snetpart2 = (split/"\s+"/, $line)[1]; 
 
            # and now pass it to "getobjectlst.exe"; 
            my @dnsoptions2 = `./getobjectlst.exe -u xx -p xx -a $snetpart2 -o Rich`; 
 
            print $dump "dumping \@dnsoptions2\n";     
            print $dump Data::Dumper->Dump(\@dnsoptions2); 
            print $dump '=' x 25, "\n"; 
             
            # find out counts of each subnettype (4th field from left) 
            foreach my $line (@dnsoptions2) { 
                my @subnettype = split/"\s+"/, $line; 
                $counts{$subnettype[3]}++; 
            } 
        } 
    } 
    else { # successful output from getobjectlst.exe 
 
        # find out counts of each subnettype (4th field from left) 
        foreach my $line (@dnsoptions) { 
            @subnettype = split/"\s+"/, $line; 
            $counts{$subnettype[3]}++; 
        } 
    } 
    printf $log "%s,%d,%d,%d\n", $subnet, $counts{Static}, $counts{DHCP}, $counts{Unused}; 
} 
 
close($in); 
close($log);

#!/usr/bin/perl 
 
usw strict; 
use warnings; 
use Data::Dumper; 
 
open my $log, '>', 'log-external-.txt' or die "Could not open log: $!"; 
print $log "Subnet,Static,DHCP,Unused\n"; 
 
open my $dump, '>', 'dump.log' or die "failed to open 'dump.log' $!"; 
 
##### Step 1, read subnets 
open my $in, '<', 'm-names.txt' or die "Could not open m-names.txt: $!\n"; 
while( my $subnet = <$in>) { 
 
    print "Checking $subnet"; 
    chomp $subnet; 
     
    my %counts = (  
                   Static => 0, 
                   DHCP   => 0, 
                   Unused => 0, 
    ); 
     
    my @dnsoptions = `./getobjectlst.exe -u xx -p xx -a $subnet -o Rich`; 
 
    print $dump "dumping \@dnsoptions\n";     
    print $dump Data::Dumper->Dump(\@dnsoptions); 
    print $dump '=' x 25, "\n"; 
 
    if ( @dnsoptions and $dnsoptions[0] = '' ) { 
        print "dnsoptions is null or undefined, going on to the next subnet\n"; 
        next; 
    } 
 
    # Now, at this point, we may have "Error 48" in @dnsoptions, or we may have 
    # the nicely formatted output. We'll have to check for both cases here. 
    # Let's check the unsuccessful case first. The condition below checks if 
    # the first element of @dnsoptions array has the following text in it - 
    # "Error 48: This subnet does not exist." in it. 
 
 
    if (join("",@dnsoptions) =~ /Error 48: This subnet does not exist./) { 
 
        # call "getsubnetlst.exe", passing $subnet as one of the parameters 
        my @subnetpart2 = `./getsubnetlst.exe -u xx-p xx -a $subnet -t network -o Rich`; 
 
        print $dump "dumping \@subnetpart2\n";     
        print $dump Data::Dumper->Dump(\@subnetpart2); 
        print $dump '=' x 25, "\n"; 
 
         
        # now loop through each element of the array @subnetpart2, which looks like this - 
        # ########################################################################## 
        # "East" "146.149.1.0" "N" "" "146.149.0.0" " " " " "255.255.255.128" 
        # ########################################################################## 
        # pick up the 2nd field from the left (e.g. 146.149.1.0 above), and pass it as 
        # a parameter to the cli "getobjectlst.exe". 
 
 
        foreach my $line ( @subnetpart2 ) { 
 
            # get the 2nd field from the left 
            my $snetpart2 = (split/"\s+"/, $line)[1]; 
 
            # and now pass it to "getobjectlst.exe"; 
            my @dnsoptions2 = `./getobjectlst.exe -u xx -p xx -a $snetpart2 -o Rich`; 
 
            print $dump "dumping \@dnsoptions2\n";     
            print $dump Data::Dumper->Dump(\@dnsoptions2); 
            print $dump '=' x 25, "\n"; 
             
            # find out counts of each subnettype (4th field from left) 
            foreach my $line (@dnsoptions2) { 
                my @subnettype = split/"\s+"/, $line; 
                $counts{$subnettype[3]}++; 
            } 
        } 
    } 
    else { # successful output from getobjectlst.exe 
 
        # find out counts of each subnettype (4th field from left) 
        foreach my $line (@dnsoptions) { 
            @subnettype = split/"\s+"/, $line; 
            $counts{$subnettype[3]}++; 
        } 
    } 
    printf $log "%s,%d,%d,%d\n", $subnet, $counts{Static}, $counts{DHCP}, $counts{Unused}; 
} 
 
close($in); 
close($log);

#!perl 
use strict;  
use warnings;  
use Data::Dumper;  
  
open my $log, '>', 'log-external-.txt' or die "Could not open log: $!";  
print $log "Subnet,Static,DHCP,Unused\n";  
  
open my $dump, '>', 'dump.log' or die "failed to open 'dump.log' $!";  
  
##### Step 1, read subnets  
open my $in, '<', 'm-names.txt' or die "Could not open m-names.txt: $!\n";  
while( my $subnet = <$in>) {  
  
    print "Checking $subnet";  
    chomp $subnet;  
      
    my %counts = (   
                   Static => 0,  
                   DHCP   => 0,  
                   Unused => 0,  
    );  
      
    my @dnsoptions = `./getobjectlst.exe -u x-p x-o Rich -a $subnet`;  
  
    print $dump "dumping \@dnsoptions\n";      
    print $dump Data::Dumper->Dump(\@dnsoptions);  
    print $dump '=' x 25, "\n";  
  
    if ( @dnsoptions and $dnsoptions[0] = '' ) {  
        print "dnsoptions is null or undefined, going on to the next subnet\n";  
        next;  
    }  
  
    # Now, at this point, we may have "Error 48" in @dnsoptions, or we may have  
    # the nicely formatted output. We'll have to check for both cases here.  
    # Let's check the unsuccessful case first. The condition below checks if  
    # the first element of @dnsoptions array has the following text in it -  
    # "Error 48: This subnet does not exist." in it.  
  
  
    if (join("",@dnsoptions) =~ /Error 48: This subnet does not exist./) {  
  
        # call "getsubnetlst.exe", passing $subnet as one of the parameters  
        my @subnetpart2 = `./getsubnetlst.exe -u xx -p xx -o Rich -a $subnet -t network`;  
  
        print $dump "dumping \@subnetpart2\n";      
        print $dump Data::Dumper->Dump(\@subnetpart2);  
        print $dump '=' x 25, "\n";  
  
          
        # now loop through each element of the array @subnetpart2, which looks like this -  
        # ##########################################################################  
        # "East" "146.149.1.0" "N" "" "146.149.0.0" " " " " "255.255.255.128"  
        # ##########################################################################  
        # pick up the 2nd field from the left (e.g. 146.149.1.0 above), and pass it as  
        # a parameter to the cli "getobjectlst.exe".  
  
  
        foreach my $line ( @subnetpart2 ) {  
  
            # get the 2nd field from the left  
            my $snetpart2 = (split/"\s+"/, $line)[1];  
  
            # and now pass it to "getobjectlst.exe";  
            my @dnsoptions2 = `./getobjectlst.exe -u xx -p xx -o Rich -a $snetpart2`;  
  
            print $dump "dumping \@dnsoptions2\n";      
            print $dump Data::Dumper->Dump(\@dnsoptions2);  
            print $dump '=' x 25, "\n";  
              
            # find out counts of each subnettype (4th field from left)  
            foreach my $line (@dnsoptions2) {  
                my @subnettype = split/"\s+"/, $line;  
                $counts{$subnettype[3]}++;  
            }  
        }  
    }  
    else { # successful output from getobjectlst.exe  
  
        # find out counts of each subnettype (4th field from left)  
        foreach my $line (@dnsoptions) {  
            my @subnettype = split/"\s+"/, $line; 
            $counts{$subnettype[3]}++;  
        }  
    }  
    printf $log "%s,%d,%d,%d\n", $subnet, $counts{Static}, $counts{DHCP}, $counts{Unused};  
}  
  
close($in);  
close($log);