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.

Replies are listed 'Best First'.
Re^6: Bind zone file search
by ranceh (Novice) 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;
//         };
//};

    [download]
[reply]
[d/l]

      Try the following regex:

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

      [download]

      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

      [download]
[reply]
[d/l]
[select]

        Bingo

        Thanks much for all your help today.

[reply]

In Section Seekers of Perl Wisdom