Shell Programming and Scripting

#!perl open(my $log, ">log-subnet.txt") or die "Could not open log: $!\n"; ##### Step 1, read subnetsopen(my $in, "<names.txt") or die "Could not open names.txt: $!\n";while(<$in>) {    next unless /(.*?)\/(.*)$/;    my $subnet = $1;    print "Checking $subnet\n";    my @dnsoptions = `./object.exe -u Xxx-p Xxx -b $subnet -o rich`;        my %counts;    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);

#!perl
 
open(my $log, ">log-subnet.txt") or die "Could not open log: $!\n";
 
##### Step 1, read subnets
open(my $in, "<names.txt") or die "Could not open names.txt: $!\n";
while(<$in>) {
   next unless /(.*?)\/(.*)$/;
   my $subnet = $1;
   print "Checking $subnet\n";
   my @dnsoptions = `./object.exe -u Xxx-p Xxx -b $subnet -o rich`;
 
   my %counts;
   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);

1.  split /PATTERN/,EXPR,LIMIT 
2.  split /PATTERN/,EXPR 
3.  split /PATTERN/ 
4.  split

       my @f = split/"\s+"/, $line;

       my @f = split/\s+/, $line;