Re^2: Print lines based on matching words

I tried the script with the following for something different & seems like it's not giving the desired output-

__DATA__
access-list INSIDE_IN remark Web Users To Web Server
access-list INSIDE_IN extended permit tcp object-group WEB-CLIENT obje
+ct-group WEB-SERVER object-group WEB_TCP
access-list INSIDE_IN remark EMAIL To EMAIL Server
access-list INSIDE_IN extended permit tcp object-group EMAIL-CLIENT ob
+ject-group EMAIL-SERVER object-group SMTP_TCP
access-list INSIDE_IN remark SRVR to Client
access-list INSIDE_IN extended permit tcp object-group MYSRVR_2nd obje
+ct-group MYCLIENTS_1st object-group WEB_TCP

object-group network PC1_1st
 network-object host 10.1.1.11
object-group network PC2_1st
 network-object host 10.1.1.12
object-group network WEB-CLIENT
 group-object PC1_1st
 group-object PC2_1st
object-group network WEB-SERVER
 network-object host 10.1.1.5
object-group service WEB_TCP tcp
 port-object eq www
 port-object eq https
object-group network EMAIL-CLIENT
 group-object PC1_1st
 group-object PC2_1st
object-group network EMAIL-SERVER
 network-object host 10.1.1.6
object-group service SMTP_TCP tcp
 port-object eq SMTP

object-group network MYCLIENTS_1st
 network-object host 10.1.2.1
 network-object host 10.1.2.2
 network-object host 10.1.2.3
 network-object host 10.1.2.4
object-group network MYSRVR_2nd
 network-object host 10.1.1.4
 network-object host 10.1.1.3
 network-object host 10.1.1.31
object-group service WEB_TCP tcp
 port-object eq www
 port-object eq https
[download]

PRINTS:

access-list INSIDE_IN extended permit tcp object-group WEB-CLIENT obje
+ct-group WEB-SERVER object-group WEB_TCP
object-group network WEB-CLIENT
 group-object PC1_1st
 group-object PC2_1st
object-group network PC1_1st
 network-object host 10.1.1.11
object-group network PC2_1st
 network-object host 10.1.1.12
object-group network WEB-SERVER
 network-object host 10.1.1.5
object-group service WEB_TCP tcp
 port-object eq www
 port-object eq https
print "\n";
access-list INSIDE_IN extended permit tcp object-group EMAIL-CLIENT ob
+ject-group EMAIL-SERVER object-group SMTP_TCP
object-group network EMAIL-CLIENT
 group-object PC1_1st
 group-object PC2_1st
object-group network PC1_1st
 network-object host 10.1.1.11
object-group network PC2_1st
 network-object host 10.1.1.12
object-group network EMAIL-SERVER
 network-object host 10.1.1.6
object-group service SMTP_TCP tcp
 port-object eq SMTP
access-list INSIDE_IN extended permit tcp object-group MYSRVR_2nd obje
+ct-group MYCLIENTS_1st object-group WEB_TCP
object-group service WEB_TCP tcp
 port-object eq www
 port-object eq https
print "\n";
[download]

INSTEAD OF-

access-list INSIDE_IN extended permit tcp object-group WEB-CLIENT obje
+ct-group WEB-SERVER object-group WEB_TCP
object-group network WEB-CLIENT
 group-object PC1_1st
 group-object PC2_1st
object-group network PC1_1st
 network-object host 10.1.1.11
object-group network PC2_1st
 network-object host 10.1.1.12
object-group network WEB-SERVER
 network-object host 10.1.1.5
object-group service WEB_TCP tcp
 port-object eq www
 port-object eq https

access-list INSIDE_IN extended permit tcp object-group EMAIL-CLIENT ob
+ject-group EMAIL-SERVER object-group SMTP_TCP
object-group network EMAIL-CLIENT
 group-object PC1_1st
 group-object PC2_1st
object-group network PC1_1st
 network-object host 10.1.1.11
object-group network PC2_1st
 network-object host 10.1.1.12
object-group network EMAIL-SERVER
 network-object host 10.1.1.6
object-group service SMTP_TCP tcp
 port-object eq SMTP

access-list INSIDE_IN extended permit tcp object-group MYSRVR_2nd obje
+ct-group MYCLIENTS_1st object-group WEB_TCP
object-group network MYSRVR_2nd
 network-object host 10.1.1.4
 network-object host 10.1.1.3
 network-object host 10.1.1.31
object-group network MYCLIENTS_1st
 network-object host 10.1.2.1
 network-object host 10.1.2.2
 network-object host 10.1.2.3
 network-object host 10.1.2.4
object-group service WEB_TCP tcp
 port-object eq www
 port-object eq https
[download]

Please let me know.

Comment on Re^2: Print lines based on matching words Select or Download Code


Keep It Simple, Stupid
	PerlMonks