usr/src/cmd/auditrecord/filter_txt.pl

   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 }