Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re^5: Bind zone file search

by Kenosis (Priest)
on Sep 26, 2012 at 16:58 UTC ( #995824=note: print w/ replies, xml ) Need Help??


in reply to Re^4: Bind zone file search
in thread Bind zone file search

Ah, good! Do you have an example of the commented-out stanzas? I suspect the regex can be modified to manage these exceptions.


Comment on Re^5: Bind zone file search
Re^6: Bind zone file search
by ranceh (Initiate) on Sep 26, 2012 at 18:37 UTC

    yes, most start with "//" and I have a few with "#"

    //zone "ecpt.org" { // type slave; // file "old/combined/ecpt.org"; // masters { // 204.234.17.196; // }; //};

      Try the following regex:

      /zone\s+"([^"]+)".+masters\s+{[\s#\/]*([a-zA-Z0-9.-]+)[\s#\/;]*}/s

      In addition to accommodating for the # and / characters in the zone stanzas, it handles the ; at the end of the masters' IP/domain name.

      The last character sets:

      [\s#\/]*([a-zA-Z0-9.-]+)[\s#\/;]* ^ ^ ^ | | | | | + - Character set found immediately after I +P/domain name | + - Character set allowed in IP/domain name + - Character set found immediately before IP/domain name

        Bingo

        Thanks much for all your help today.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://995824]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (10)
As of 2014-09-17 09:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (70 votes), past polls