Home | History | Annotate | Download | only in auditrecord
      1 #!/usr/perl5/bin/perl -w
      2 #
      3 # CDDL HEADER START
      4 #
      5 # The contents of this file are subject to the terms of the
      6 # Common Development and Distribution License (the "License").
      7 # You may not use this file except in compliance with the License.
      8 #
      9 # You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
     10 # or http://www.opensolaris.org/os/licensing.
     11 # See the License for the specific language governing permissions
     12 # and limitations under the License.
     13 #
     14 # When distributing Covered Code, include this CDDL HEADER in each
     15 # file and include the License file at usr/src/OPENSOLARIS.LICENSE.
     16 # If applicable, add the following below this CDDL HEADER, with the
     17 # fields enclosed by brackets "[]" replaced with your own identifying
     18 # information: Portions Copyright [yyyy] [name of copyright owner]
     19 #
     20 # CDDL HEADER END
     21 #
     22 #
     23 # Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
     24 # Use is subject to license terms.
     25 #
     26 
     27 # local script to process audit_record_attr.txt -> audit_record_attr
     28 #
     29 # comments in the source file may start with "#" or "##" in any
     30 # column.  Those with double hash are retained as comments (but with a
     31 # single "#") in the destination and the others are removed.  Because
     32 # of the comment removal, any sequence of more than one line of blank
     33 # lines is also removed.
     34 
     35 use strict;
     36 require 5.005;
     37 
     38 my $blankCount = 1;	# not zero is a kludge to avoid making the first
     39 			# line of the output a blank line.
     40 while (<>) {
     41         s/(?<!#)#(?!#).*//;
     42 	if (/^\s*$/) {
     43 		$blankCount++ ;
     44 		next if ($blankCount > 1);
     45 	} else {
     46 		$blankCount = 0;
     47 	}
     48 	s/##/#/;
     49 	print;
     50 }
     51