For more information regarding the security incident at F5, the actions we are taking to address it, and our ongoing efforts to protect our customers, click here.

Forum Discussion

don_23889's avatar
don_23889
Icon for Nimbostratus rankNimbostratus
Dec 28, 2009

grep'ng for 'string' in bigip.conf

grep'ng for 'string' and returning entire block of object definitions from bigip.conf for each instance of 'string', starting with 'virtual' and ending with '}'     config less bigip.con...
management
monitoring
Don_Munyak's avatar
Don_Munyak
Icon for Nimbostratus rankNimbostratus
Dec 30, 2009

Posted By hwidjaja on 12/28/2009 10:26 AM 

   
   !/usr/bin/perl   
   use strict;   
      
   my ($File, $Pattern) = @ARGV;   
   my $buf;   
      
   open (fh, $File) || die "Cant open $File";   
   {   
   local $/;   
   $buf=;   
   }   
   close (fh);   
      
   while ($buf =~ /([^\n]*\{[^\{]*$Pattern[^\}]*\})/sg){   
   print "$1\n---\n";   
   }

Quick question...

For $buf=; ... is correct... or should it be (fh) ??

Thanks again

--Don