grep'ng for 'string' in bigip.conf

Just wanted to thank everyone for the examples for parsing a bigip.conf (for non-TMSH versions like 9.3.x). I used this post as a start for a script to reorder the bigip.conf objects alphabetically. It's a bit of a hack, but gets the job done.

The use case is:

Prepare bigip.conf files from several BIG-IP's in a customers set of environments. The configs are similar between environments, but not identical. It's a royal pain trying to diff two bigip.conf files from separate environments when all the iRules, VIPs, etc, are in different orders.

Note that I haven't tried loading the resulting bigip.conf--just comparing files so far.

So thanks guys,

Aaron

   
 !/usr/bin/perl 
  
  v0.2 - 2010-01-27 
  
  This is a simple script to parse a bigip.conf and print out each instance of an object types in alphabetical order 
  Ex: my_class, whose_class, your_class, my_rule_1, my_rule_2, your_rule_1, my_vip_1, my_vip_2, your_vip_1, your_vip_2,  
  
  Order of the printing of the object types themselves is hardcoded for now using the @ObjectTypeNames array. 
  This could be changed to print in the order the object types are found in the bigip.conf 
  Object types not defined in $ObjectTypeRegex are considered "unknown" and are printed first. 
  
  
 use strict;  Need to declare the ObjectTypeName arrays first 
 use warnings; 
 use Switch; 
  
  Get the filename from the command line arguments. Default to ./bigip.conf 
 @ARGV = 'bigip.conf' unless @ARGV; 
 my ($File) = @ARGV; 
  
  Debug logging? (0=none, 1=debug on result printing, 2=debug on printing and file parsing) 
 my $debug = 0; 
  
  Initialise some variables 
 my ($CurlyBracesCount, $Object) = (0, ""); 
 my $ObjectDefLine = ""; 
  
  Array of object type names.  
  The names need to be in the order that object types are listed in the conf files to ensure the output order is valid. 
 my @ObjectTypeNames = ('unknowns', 'routes', 'classes', 'monitors', 'auths', 'profiles', 'nodes', 'pools', 'snatpools', 'snats', 'rules', 'virtual_addresses', 'virtuals'); 
  
  Regex which matches 
 my $ObjectTypeRegex = qw/(^(?:auth|class|monitor|node|pool|profile|route|rule|snat|snatpool|virtual).*){$/; 
  
  ToDo: Declare array names for each ObjectTypeName and enable 'use strict' 
  
  Open file 
 open (Fh, $File) || die "Cant open $File"; 
  
 print "===========================\nStart...\n\n" if $debug > 1; 
  
  Read in the file 
 while (  ){ 
  
  Append current line 
 $Object .= $_; 
  
  Count the number of open/close curly braces in the current line 
 $CurlyBracesCount += (tr/\{//); 
 $CurlyBracesCount -= (tr/\}//); 
  
  If the curly brace count is 0, we've found a matching close brace 
 if ($CurlyBracesCount == 0) { 
  
  Look for an object type definition 
 if ((split /\n/, $Object)[0] =~ /$ObjectTypeRegex/s) { 
 print "Matched: $1\n" if $debug > 1; 
  Save the match if there was one 
 if ($1 ne "") { 
 $ObjectDefLine = $1; 
 $ObjectDefLine =~ s/\s+$//; 
 print "Saving \$ObjectDefLine: $ObjectDefLine\n" if $debug > 1; 
 } 
 } elsif ($Object =~ /[a-z].*\{$/) { 
  Found a line which starts with an alpha character and ends with an open curly brace 
 print "\nUnknown object definition: $Object\n" if $debug > 1; 
 $ObjectDefLine = "unknown"; 
 } else { 
  Found something else... 
 print "\nDefault. Unknown object definition:\n$Object\n" if $debug > 1; 
 $ObjectDefLine = "unknown"; 
 } 
  
  Save the current object to the corresponding object type array 
 print "Evaluating object type definition: $ObjectDefLine\n" if $debug > 1; 
 switch ((split / /, $ObjectDefLine)[0]) { 
 case "auth" { 
  Add the current class name and definition as a hash to an object type array 
 print "Adding object name: ".(split / /, $ObjectDefLine)[1]."\n" if $debug > 1; 
 push(@auths,  
 {ObjectName => (split / /, $ObjectDefLine)[1], ObjectDef => $Object} 
 ); 
 } 
 case "class" { 
  Add the current class name and definition as a hash to an object type array 
 print "Adding class name: ".(split / /, $ObjectDefLine)[1]."\n" if $debug > 1; 
 push(@classes, 
 {ObjectName => (split / /, $ObjectDefLine)[1], ObjectDef => $Object} 
 ); 
 } 
 case "monitor" { 
 print "Adding monitor: $ObjectDefLine, name: ".(split / /, $ObjectDefLine)[1]."\n" if $debug > 1; 
 push(@monitors, 
 {ObjectName => (split / /, $ObjectDefLine)[1], ObjectDef => $Object} 
 ); 
 } 
 case "node" { 
 print "Adding node: $ObjectDefLine, name: ".(split / /, $ObjectDefLine)[1]."\n" if $debug > 1; 
 push(@nodes, 
 {ObjectName => (split / /, $ObjectDefLine)[1], ObjectDef => $Object} 
 ); 
 } 
 case "pool" { 
 print "Adding pool: $ObjectDefLine, name: ".(split / /, $ObjectDefLine)[1]."\n" if $debug > 1; 
 push(@pools, 
 {ObjectName => (split / /, $ObjectDefLine)[1], ObjectDef => $Object} 
 ); 
 } 
 case "profile" { 
 print "Adding profile: $ObjectDefLine, name: ".(split / /, $ObjectDefLine)[1]."\n" if $debug > 1; 
 push(@profiles, 
 {ObjectName => (split / /, $ObjectDefLine)[1]." ".(split / /, $ObjectDefLine)[2], ObjectDef => $Object} 
 ); 
 } 
 case "route" { 
 print "Adding route: $ObjectDefLine, name: ".(split / /, $ObjectDefLine)[1]."\n" if $debug > 1; 
 push(@routes, 
 {ObjectName => (split / /, $ObjectDefLine)[1], ObjectDef => $Object} 
 ); 
 } 
 case "rule" { 
 print "Adding rule: $ObjectDefLine, name: ".(split / /, $ObjectDefLine)[1]."\n" if $debug > 1; 
 push(@rules, 
 {ObjectName => (split / /, $ObjectDefLine)[1], ObjectDef => $Object} 
 ); 
 } 
 case "snat" { 
 print "Adding snat: $ObjectDefLine, name: ".(split / /, $ObjectDefLine)[1]."\n" if $debug > 1; 
 push(@snats, 
 {ObjectName => (split / /, $ObjectDefLine)[1], ObjectDef => $Object} 
 ); 
 } 
 case "snatpool" { 
 print "Adding snatpool: $ObjectDefLine, name: ".(split / /, $ObjectDefLine)[1]."\n" if $debug > 1; 
 push(@snatpools, 
 {ObjectName => (split / /, $ObjectDefLine)[1], ObjectDef => $Object} 
 ); 
 } 
 case "packet" { 
 print "Adding packet filter: $ObjectDefLine\n, name: ".(split / /, $ObjectDefLine)[1]."" if $debug > 1; 
 push(@packet_filters, 
 {ObjectName => (split / /, $ObjectDefLine)[1], ObjectDef => $Object} 
 ); 
 } 
 case "virtual" { 
  ToDo: could parse virtual servers and virtual addresses into separate arrays 
  If so, check for second word of "address" to find virtual addresses 
 if ((split / /, $ObjectDefLine)[1] eq "address") { 
 print "Adding virtual address: $ObjectDefLine\n, name: ".(split / /, $ObjectDefLine)[2]."" if $debug > 1; 
 push(@virtual_addresses, 
 {ObjectName => (split / /, $ObjectDefLine)[2], ObjectDef => $Object} 
 ); 
 } else { 
 print "Adding virtual server: $ObjectDefLine\n, name: ".(split / /, $ObjectDefLine)[1]."" if $debug > 1; 
 push(@virtuals, 
 {ObjectName => (split / /, $ObjectDefLine)[1], ObjectDef => $Object} 
 ); 
 } 
 } 
 else { 
 print "No match: $ObjectDefLine\n\$Object: $Object" if $debug > 1; 
 push(@unknowns, 
 {ObjectName => "unknown", ObjectDef => $Object} 
 ); 
 } 
 } 
 $Object = ""; 
 print "-----------------------------\n" if $debug > 1; 
 } 
 } 
 close (Fh); 
  
  Print the output 
 print "===========================\nResults:\n" if $debug; 
  
  Loop through the Object Types by name 
 foreach $ObjectType (@ObjectTypeNames) { 
  
  Sort the array by the ObjectType hash key name, ObjectName 
 my @SortedObjectType =  sort { $a->{'ObjectName'} cmp $b->{'ObjectName'} } @$ObjectType; 
  
 print "===========================\n" if $debug; 
 print "Object Type: $ObjectType\n\n" if $debug; 
  
  Loop through the array of Object hashes 
 foreach $ObjectHashRef (@SortedObjectType) { 
  
  Loop through the Objects and print the definition 
 foreach $Object ($ObjectHashRef) { 
 print "---------------------------\n" if $debug; 
 print "$Object->{'ObjectName'}:\n" if $debug; 
 print $Object->{'ObjectDef'}; 
 } 
 } 
 }