Enhanced count script wrapper

#!perl
 
open(my $log, ">log-subnet.txt") or die "Could not open log: $!\n";
 
##### Step 1, read subnets
open(my $in, "<m-names2.txt") or die "Could not open m-names.txt: $!\n";
while(<$in>) {
    next unless /(.*?)\/(.*)$/;
    my $subnet = $1;
    print "Checking $subnet\n";
    my @dnsoptions = `./getobjectlst.exe -u Xxx-p Xxx -a $subnet -o rich`;
    
    my %counts;
    foreach my $line (@dnsoptions) {
        my @f = split/"\s+"/, $line;
        $counts{$f[3]}++;
    }
            elsif ($line =~ /^\s*Error 48: This subnet does not exist.=([^\r\n]+)/) {
            my @subnetpart2 = `./getsubnetlst.exe -u Xxx -p Xxx -a $subnet -t netwrok -o rich`;
            my @f = split/"\s+"/, $line;
            $counts{$f[3]}++;
         }
    
 printf $log "%s,%d,%d,%d\n", $subnet, ($counts{Static} or 0), ($counts{DHCP} or 0), ($counts{Unused} or 0);
 
close($log);

Select allOpen in new window

#!perl -w
my %counts;
my @subnettype;
my @dnsoptions;
my @dnsoptions2;
my @subnetpart2;
my $snetpart2;
my $subnet;
open(my $log, ">log-external-.txt") or die "Could not open log: $!\n";
printf $log "Subnet,Static,DHCP,Unused\n";
##### Step 1, read subnets
open(my $in, "<m-names.txt") or die "Could not open m-names.txt: $!\n";
while(<$in>) {
#next unless /(.*?)\/(.*)$/;
#next unless /(.*?)$/;
chomp;
$subnet = $_;
print "Checking $subnet\n";
@dnsoptions = `./getobjectlst.exe -u xx -p xx -a $subnet -o Rich`;
# 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 (not defined($dnsoptions[0])) {
print "dnsoptions is null or undefined, going on to the next subnet\n";
next;
 
if (join(" ",@dnsoptions) =~ /Error 48: This subnet does not exist./) {
 
# call "getsubnetlst.exe", passing $subnet as one of the parameters
@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
$snetpart2 = (split/"\s+"/, $line)[1];
# and now pass it to "getobjectlst.exe"; assign the output to
# the array @dnsoptions2
@dnsoptions2 = `./getobjectlst.exe -u xx -p xx -a $snetpart2 -o Rich`;
# find out counts of each subnettype (4th field from left)
foreach my $line (@dnsoptions2) {
@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} or 0), ($counts{DHCP} or 0), ($counts{Unused} or 0);
%counts = ();
}
}
close($in);
close($log);

Select allOpen in new window

open(my $log, ">log-subnet.txt") or die "Could not open log: $!\n";
 
##### Step 1, read subnets
open(my $in, "<m-names.txt") or die "Could not open m-names.txt: $!\n";
while(<$in>) {
	next unless /(.*?)\/(.*)$/;
	my $subnet = $1;
	print "Checking $subnet\n";
	my @dnsoptions = `./getobjectlst.exe -u Xxx-p Xxx -a $subnet -o rich`;
    my %counts;
	if(join("",@dnsoptions) =~ /Error 48: This subnet does not exist/i) {
		my @newlines = `./getsubnetlst.exe -u Xxx -p Xxx -a $subnet -t netwrok -o rich`;
		foreach my $line2 (@newlines) {
			my $subnet2 = (split(/"\s+"/, $line2))[1];
			@dnsoptions = `./getobjectlst.exe -u Xxx-p Xxx -a $subnet2 -o rich`;
			foreach my $line (@dnsoptions)) {
				my @f = split/"\s+"/, $line;
				$counts{$f[3]}++;
			}
	    	print $log "For subnet $subnet:\n";
			foreach my $k (keys %counts) {
				print $log "    $k: $counts{$k}\n";
			}
		}
	}
	else {
		foreach my $line (@dnsoptions)) {
			my @f = split/"\s+"/, $line;
			$counts{$f[3]}++;
		}
    	print $log "For subnet $subnet:\n";
		foreach my $k (keys %counts) {
			print $log "    $k: $counts{$k}\n";
		}
	}
}
 
close($log);

Select allOpen in new window

#!/usr/bin/perl
open(my $log, ">log-subnet.txt") or die "Could not open log: $!\n";
 
##### Step 1, read subnets
open(my $in, "<m-names.txt") or die "Could not open m-names.txt: $!\n";
while(<$in>) {
	next unless /(.*?)\/(.*)$/;
	my $subnet = $1;
	print "Checking $subnet\n";
	my @dnsoptions = `./getobjectlst.exe -u Xxx-p Xxx -a $subnet -o rich`;
	my %counts;
	if(join("",@dnsoptions) =~ /Error 48: This subnet does not exist/i) {
		my @newlines = `./getsubnetlst.exe -u Xxx -p Xxx -a $subnet -t netwrok -o rich`;
		foreach my $line2 (@newlines) {
			my $subnet2 = (split(/"\s+"/, $line2))[1];
			@dnsoptions = `./getobjectlst.exe -u Xxx-p Xxx -a $subnet2 -o rich`;
			foreach my $line (@dnsoptions) {
				my @f = split/"\s+"/, $line;
				$counts{$f[3]}++;
			}
			print $log "For subnet $subnet:\n";
			foreach my $k (keys %counts) {
				print $log "    $k: $counts{$k}\n";
			}
		}
	}
	else {
		foreach my $line (@dnsoptions) {
			my @f = split/"\s+"/, $line;
			$counts{$f[3]}++;
		}
		print $log "For subnet $subnet:\n";
		foreach my $k (keys %counts) {
			print $log "    $k: $counts{$k}\n";
		}
	}
}
 
close($log);

Select allOpen in new window

#!/usr/bin/perl
open(my $log, ">log-subnet.txt") or die "Could not open log: $!\n";
 
##### Step 1, read subnets
open(my $in, "<m-names.txt") or die "Could not open m-names.txt: $!\n";
while(<$in>) {
        next unless /(.*?)\/(.*)$/;
        my $subnet = $1;
        print "Checking $subnet\n";
        my @dnsoptions = `./getobjectlst.exe -u Xxx-p Xxx -a $subnet -o rich`;
        my %counts;
        if(join("",@dnsoptions) =~ /Error 48: This subnet does not exist/i) {
                my @newlines = `./getsubnetlst.exe -u Xxx -p Xxx -a $subnet -t network -o rich`;
                foreach my $line2 (@newlines) {
                        my $subnet2 = (split(/"\s+"/, $line2))[1];
                        @dnsoptions = `./getobjectlst.exe -u Xxx-p Xxx -a $subnet2 -o rich`;
                        foreach my $line (@dnsoptions) {
                                my @f = split/"\s+"/, $line;
                                $counts{$f[3]}++;
                        }
                        print $log "For subnet $subnet:\n";
                        foreach my $k (keys %counts) {
                                print $log "    $k: $counts{$k}\n";
                        }
                }
        }
        else {
                foreach my $line (@dnsoptions) {
                        my @f = split/"\s+"/, $line;
                        $counts{$f[3]}++;
                }
                print $log "For subnet $subnet:\n";
                foreach my $k (keys %counts) {
                        print $log "    $k: $counts{$k}\n";
                }
        }
}
 
close($log);

Select allOpen in new window

#!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 xx -p xx -o rich -a $subnet 2>&1`;
 
    print $dump "dumping \@dnsoptions\n";     
    print $dump Data::Dumper->Dump(\@dnsoptions); 
    print $dump '=' x 25, "\n"; 
 
    if ( @dnsoptions and $dnsoptions[0] eq '' ) {
        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);

Select allOpen in new window