I have this nice script that was created by someone else. and was looking for a different opinions on this forum.
Code:
#!perl -w
use strict;
my %all_ips;
my %all_zones;
my %zone_ips;
while (<>) {
next unless /^zone\s+\"(.*)\"/;
my $zone = $1;
while (<>) {
print "Warn: allow-update not found in $zone\n" if /^\}\;/;
next unless /allow-update\s*\{\s*(.*)/;
my $ips = $1;
if ($ips =~ /none/i) {
print "Warn: zone $zone contains no IPs (none)\n";
last;
}
while (<>) {
if (/(.*)\}\;/) {
$ips .= $1;
if ($ips =~ /none/i) {
print "Warn: $zone contains no IPs (none)\n";
last;
}
my %seen;
my @ips = grep {!$seen{$_}++} split(/[\s\;]+/, $ips);
foreach (@ips) {
$all_ips{$_}++;
$zone_ips{$_} .= " $zone";
}
$all_zones{$zone} = [ @ips ];
last;
}
$ips .= $_;
}
last;
}
}
my $num_zones = keys(%all_zones);
print "\nCounted ".$num_zones." zones.\n";
exit unless $num_zones;
print "\nThey are:\n";
print join("\n", keys %all_zones)."\n";
my @in_all;
my @not_all;
foreach (sort keys %all_ips) {
if ($all_ips{$_}==$num_zones) {
push @in_all, $_;
}
else {
push @not_all, $_;
}
}
if (@in_all) {
print "\nThe following IP's appear in all $num_zones zones:\n";
print join("\n", @in_all)."\n";
}
if (@not_all) {
print "\nThe following IP's do not appear in all zones:\n";
print "\nIP shown with zones it's found in:\n";
foreach (@not_all) {
print $_." $zone_ips{$_}\n";
}
}
But the output is not quite what I need: right now it looks like this: ( keep in mind this is not the entire output, just an excerpt.
Warn: allow-update not found in qa.sarkie.net
Warn: zone dhcp.sark.com contains no IPs (none)
Warn: allow-update not found in 127.in-addr.arpa
Counted 4 zones.
They are:
wes.sark.com
fre.sark.com
nrm.sark.com
us.ad.sark.com
The following IP's appear in all 4 zones:
10.128.1.54
133.180.204.54
133.180.204.55
133.85.117.224
I'm new to utilities like socat and netcat and I'm not clear if they will do what I need.
I have a "compileDeployStartWebServer.sh" script and a "StartBrowser.sh" script that are started by emacs/elisp at the same time in two different processes.
I'm using Cygwin bash on Windows 10.
My... (3 Replies)
Hello all,
I am facing a weird issue while executing a code below -
#!/bin/bash
cd /wload/baot/home/baotasa0/sandboxes_finance/ext_ukba_bde/pset
sh UKBA_publish.sh UKBA 28082015 3
if
then
echo "Param file conversion for all the areas are completed, please check in your home directory"... (2 Replies)
I am trying to call a script(callingscript.sh) from a master script(masterscript.sh) to get string type value from calling script to master script. I have used scripts mentioned below.
#masterscript.sh
./callingscript.sh
echo $fileExist
#callingscript.sh
echo "The script is called"... (2 Replies)
I am using blow script :--
#!/bin/bash
FIND=$(ps -elf | grep "snmp_trap.sh" | grep -v grep) #check snmp_trap.sh is running or not
if
then
# echo "process found"
exit 0;
else
echo "process not found"
exec /home/Ketan_r /snmp_trap.sh 2>&1 & disown -h ... (1 Reply)
Hi guys
I have a shell script that executes sql statemets and sends the output to a file.the script takes in parameters executes sql and sends the result to an output file.
#!/bin/sh
echo " $2 $3 $4 $5 $6 $7
isql -w400 -U$2 -S$5 -P$3 << xxx
use $4
go
print"**Changes to the table... (0 Replies)
