Question : count script wrapper

Hello,

I feel shy... but this is as far as I could get

I am trying to get a script to read my m-names.txt which has lots of
167.0.0.0/8
168.0.0.0/8
192.0.0.0/8

I need to strip the / part and only use the subnet address:
167.0.0.0

Then feed it into a cli called getobjectlst.exe with a -a flag that puts the subnet address from m-names.txt

This produces a report that looks like:

"167.227.31.14"  "brs2002_204"  "Server"        "Static"        "dc.dk.sark.com"
"167.227.31.15"  "brs2005_284"  "Server"        "Static"        "dc2.dk.sark.com"
"167.227.31.16"  "brs2003"      "Server"        "Static"        "dc4.dk.sark.com"

I am intrested in the 4th field entry value and how many (count) they are per $subnet=

Go ahead and laugh... below is my interpertation
Code Snippet: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

#!perl
open(my $out, ">log-subnet.txt") or die "Could not open output: $!\n";
 
##### Step 1, read subnets
open(my $in, "
Open in New Window Select All

Answer : count script wrapper

Replace lines 19-22 with this
1:

printf $log "%s,%d,%d,%d\n", $subnet, ($counts{Static} or 0), ($counts{DHCP} or 0), ($counts{Unused} or 0);
Open in New Window Select All
Random Solutions  
 
programming4us programming4us