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 35use strict; 36require 5.005; 37 38my $blankCount = 1; # not zero is a kludge to avoid making the first 39 # line of the output a blank line. 40while (<>) { 41 s/(?<!#)#(?!#).*//; 42 if (/^\s*$/) { 43 $blankCount++ ; 44 next if ($blankCount > 1); 45 } else { 46 $blankCount = 0; 47 } 48 s/##/#/; 49 print; 50} 51