Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^7: Bind zone file search

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

Help for this page

Select Code to Download


  1. or download this
    /zone\s+"([^"]+)".+masters\s+{[\s#\/]*([a-zA-Z0-9.-]+)[\s#\/;]*}/s
    
  2. or download this
    [\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