Re: Matching a cisco interface config

Try

#! perl -slw
use strict;

$/ = "!\n"; ## set the delimiter

while( <DATA> ) {
    print "'$_'";
}

__DATA__
interface GigabitEthernet6/10
 description TRUNK-KBV-SW001
 switchport trunk encapsulation dot1q
 switchport trunk allowed vlan 1,30,31,45,156-158
 switchport mode trunk
 switchport nonegotiate
!
interface GigabitEthernet6/11
 description Offices
 switchport access vlan 31
 spanning-tree portfast
!
interface GigabitEthernet6/12
!
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"I'd rather go naked than blow up my ass"

Comment on Re: Matching a cisco interface config Download Code

Replies are listed 'Best First'.
Re^2: Matching a cisco interface config by FloydATC (Deacon) on Jan 12, 2010 at 20:00 UTC
This solution works, but in practice it would require some prepping of the config file, since I failed to mention it doesn't contain just the interfaces but a lot of other config settings as well. (As most Cisco configs do) I'll see how the regex approach below works in practice on a really big collection of configs and if I get into trouble with performance then this is probably the way to go. Thanks! -- Time flies when you don't know what you're doing	[reply]
Re^3: Matching a cisco interface config by BrowserUk (Patriarch) on Jan 12, 2010 at 21:02 UTC
Something like this? `#! perl -slw use strict; $/ = "!\n"; while( <DATA> ) { next unless m[^interface]; print "'$_'"; } __DATA__ interface GigabitEthernet6/10 description TRUNK-KBV-SW001 switchport trunk encapsulation dot1q switchport trunk allowed vlan 1,30,31,45,156-158 switchport mode trunk switchport nonegotiate ! stuff with more stuff ! interface GigabitEthernet6/11 description Offices switchport access vlan 31 spanning-tree portfast ! thing with other things ! interface GigabitEthernet6/12 !` [download] Outputs: `C:\test>junk 'interface GigabitEthernet6/10 description TRUNK-KBV-SW001 switchport trunk encapsulation dot1q switchport trunk allowed vlan 1,30,31,45,156-158 switchport mode trunk switchport nonegotiate ! ' 'interface GigabitEthernet6/11 description Offices switchport access vlan 31 spanning-tree portfast ! ' 'interface GigabitEthernet6/12 ! '` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. "I'd rather go naked than blow up my ass"	[reply] [d/l] [select]


"be consistent"
	PerlMonks