Help with a possiable syntax issue in my script Post: 302311333

Sponsored Content

Top Forums Shell Programming and Scripting Help with a possiable syntax issue in my script Post 302311333 by durden_tyler on Tuesday 28th of April 2009 11:45:06 AM

04-28-2009

Registered User

Well, I've tweaked your script a little bit, but this is in ActiveState perl on windoze (which I have to put up with at work).
This might give you some idea.

Code:

C:\>
C:\>REM show the contents of m-names.txt
C:\>
C:\>type m-names.txt
168.16.0.0/16
169.56.0.0/16
132.2.0.0/16
122.5.0.0/16
C:\>
C:\>REM show the contents of the script "test_script.pl"
C:\>
C:\>type test_script.pl
#!perl -w
open(LOG, ">log-udates.txt") or die "Could not open log: $!\n";
open( IN, "<m-names.txt") or die "Could not open m-names.txt: $!\n";
while( <IN> ){
  chomp;
  my $subnet = $_;
  print "Checking $subnet\n";
  #my $dnsoptions = `./getzoneprof -u Xx -p Xx -a $subnet -o steve`;
  my $dnsoptions =
"Zone=100.0.0.0/8
ParentAddress=
NetworkAddress=100.0.0.0
dnsServers=l S
RefreshTime=3600
ExpirationTime=1209600
RetryPeriod=900
MinimumTTL=900
NegativeCacheTTL=900
ZoneMail=hostmaster@
Extensions
Prefix of zone db file=
Postfix of zone db file=
BIND-8.X Options
allow-query=Any
allow-transfer=Any
allow-update=Use Server Value
check-names=Use Server Value
notify=Use Server Value
zone block of named.conf=
BIND-9.X Options
allow-notify=Use Server Value
allow-query=Any
allow-transfer=Any
allow-update=Use Server Value
notify=Use Server Value
zone block of named.conf=allow-update {
zone block of named.conf=
zone block of named.conf=
zone block of named.conf=
zone block of named.conf=
zone block of named.conf=
zone block of named.conf=};
Rich DNS 3.X Options
Import External Updates=False
allow-query=Any
allow-transfer=Any
allow-update=Use Server Value
check-names=Use Server Value
notify=Use Server Value
zone block of named.conf=allow-update {
zone block of named.conf=
zone block of named.conf=
zone block of named.conf=
zone block of named.conf=
zone block of named.conf=
zone block of named.conf=};
Sark DNS 4.X Options
Import External Updates=True
A (Host IPV4)=False
AAAA (Host IPV6)=False
CNAME (Canonical Name)=False
PTR (Pointer)=False
SRV (Server Resource Record)=Fal
TXT (Text)=False
allow-notify=Use Server Value
allow-query=Any
allow-transfer=Use Server Value
allow-update=Use Server Value
notify=Use Server Value
zone block of named.conf=allow-update {
zone block of named.conf=
zone block of named.conf=
zone block of named.conf=
zone block of named.conf=
zone block of named.conf=
zone block of named.conf=1
zone block of named.conf=10..
zone block of named.conf=169.
zone block of named.conf=};
WINDOWS 2000 DNS Options
aging=False";
  $/="";
  $dnsoptions =~ s/.*Sark DNS 4.X Options.*?Import External Updates=(\S+).*/$1/s;
  $/="\n";
  #next unless (my ($IEU) = $dnsoptions =~ /Sark DNS 4.X Options.*?Import External Updates=(\S+)/s);
  next unless $dnsoptions =~ /(True|False)/;
  print LOG "$subnet\n";
  print LOG "Sark DNS 4.X Options field found, "
  . "Import External Updates= $dnsoptions\n";
}
close(IN);
close(LOG);
C:\>

I am explicitly setting the value of $dnsoptions to whatever you see from your "getzoneprof" script. Note that the value of $/ is changed only for that substitute command, which sets the value of $dnsoptions.

Code:

C:\>
C:\>REM run the perl script
C:\>
C:\>perl test_script.pl
Checking 168.16.0.0/16
Checking 169.56.0.0/16
Checking 132.2.0.0/16
Checking 122.5.0.0/16
C:\>
C:\>REM check the contents of the file "log-udates.txt"
C:\>
C:\>type log-udates.txt
168.16.0.0/16
Sark DNS 4.X Options field found, Import External Updates= True
169.56.0.0/16
Sark DNS 4.X Options field found, Import External Updates= True
132.2.0.0/16
Sark DNS 4.X Options field found, Import External Updates= True
122.5.0.0/16
Sark DNS 4.X Options field found, Import External Updates= True
C:\>
C:\>

Hope that helps,
tyler_durden

______________________________________________
"Only after disaster can we be resurrected."

durden_tyler

View Public Profile for durden_tyler

Find all posts by durden_tyler

10 More Discussions You Might Find Interesting

1. Programming

Calculate scores and probability -- Syntax issue

Hi, I am totally new to C programming on Sun Solaris environment. I am an active member on the UNIX forum and a good shell programmer. I am trying to achieve some calculations in C programming. I have the pseudo code written down but don't know the syntax. I am reading a couple of books on C...

2. Shell Programming and Scripting

syntax issue in ksh file

Hi all, I am struck with syntax for long time, Need to purge some lines from given file Not able to use value of $x Example of ksh script... Facing some syntax issue. Have Tried �with single , double ,backtick �� ` and \ escape character , doesn't seem to work. <line 1> echo $x #...

3. Shell Programming and Scripting

Help understanding syntax error Issue

Hi i as you may already know i am creating a menu driven program. I have chosen to take the approach of implementing each interface individually, after adding another interface and attempting to run the program i am faced with the following error: ./Assigntest: line 32: syntax error near...

4. Shell Programming and Scripting

expr/bc syntax issue

Hi, I am facing issues in my shell script while trying to add two variables. Look at the snippet below for details: # Initially variable SAMPLE1 and SAMPLE2 are set from different sources. Have trucated decimal to avoid numeric errors in expr SAMPLE1=`/usr/bin/top -n 1 | head -3 | tail -1...

5. Shell Programming and Scripting

Syntax error, not understanding the issue?

Close please. Refer to following thread: Sub Menu issues

6. Shell Programming and Scripting

syntax issue with quotes in mysql command for a bash script

i'm trying to write a bash script that executes a mysql statement mysql -sN -e INSERT INTO "$database"."$tableprefix"users (var1, var2,var3) VALUES (123, '1','') i don't know where to put the quotes it doesnt work with this one: ` it seems i can only put double quotes around the...

7. Shell Programming and Scripting

syntax issue mysql in bash script

I'm running mysql in a bash script mysql <<EOF query EOF one query is like this: UPDATE $dbname.$prefix"config" SET value = $var WHERE "$prefix"config.name = 'table colname'; with variable but it's giving an error i'm not sure what to put for "$prefix"config.name the table...

8. Shell Programming and Scripting

Syntax Issue

Hello all. Need a bit of help... I have : previous_tmp0=`cat tmp0.txt` previous_tmp1=`cat tmp1.txt` previous_tmp2=`cat tmp2.txt` previous_tmp3=`cat tmp3.txt` previous_tmp4=`cat tmp4.txt` previous_tmp5=`cat tmp5.txt` previous_tmp6=`cat tmp6.txt` previous_tmp7=`cat tmp7.txt` Now I...

9. Shell Programming and Scripting

TCSH IF syntax issue

Hi All, I'm trying to write a simple if statement in TCSH and I honestly can't figure out what I'm doing wrong. I've played around with all sorts of permutations of syntax. if ($DESKTOP_SESSION == "kde") then replace "forceFontDPI=0" "forceFontDPI=96" --...

10. Shell Programming and Scripting

Dpkg Syntax Issue . . .

Greetings! I'm trying to get dpkg to just completely extract a multi-part *.deb archive set into a single folder called "output". Simple? Hmmmm.... dpkg --noforce --unpack *.deb /output/Console after ops: However, "--noforce" is taken directly from the helpfile Options listing as furnished...