Posted to tcl by apn at Thu Nov 13 04:29:04 GMT 2014view pretty
(tcl) 56 % regexp -inline {(?:^|/CN=)[^/]+(?:/|$)} {/DC=local/DC=company/DC=corp/OU=systems/OU=win7/OU=Laptops/CN=PCNAME} /CN=PCNAME
(tcl) 56 % regexp -inline {(?:^|/CN=)[^/]+(?:/|$)} {/DC=local/DC=company/DC=corp/OU=systems/OU=win7/OU=Laptops/CN=PCNAME} /CN=PCNAME
Comments
Posted by apn at Thu Nov 13 04:34:46 GMT 2014 [text] [code]
(tcl) 62 % regexp {(/|^)CN=([^/]+)(/|$)} {/DC=local/DC=company/DC=corp/OU=systems/OU=win7/OU=Laptops/CN=PCNAME/FO=BAR} - - cb - 1 (tcl) 63 % puts $cb PCNAME