Shell Programming and Scripting

#! /opt/third-party/bin/perl

use strict;

my ($header, $i, $headerSet, %fileHash, $content, $trailer);

open(FILE, "<", "inputfile") || die "Unable to open file 'inputfile' <$!>\n";

while ( <FILE> ) {
  if ( $headerSet != 1 && !/^ZZZZ/ ) {
    $header .= $_;
  }
  elsif ( /^ZZZZ/ ) {
    $headerSet = 1;
    $fileHash{$i++} = $content if( length($content) );
    $content = "";
    $content .= $_;
  }
  elsif ( /^BBBP/ ) {
    $trailer .= $_;
  }
  else {
    $content .= $_;
  }
}
$fileHash{$i++} = $content;

close(FILE);

$fileHash{"header"} = $header;
$fileHash{"trailer"} = $trailer;

for( my $x=0; $x<$i; $x++ ) {
  open(FILE, ">", $x);
    print FILE $fileHash{"header"};
    print FILE $fileHash{$x};
    print FILE $fileHash{"trailer"};
  close(FILE);
}

exit 0

awk 'BEGIN{c=1}
     /^AAA.+nmon_aix53#/  {print > "file"c }
     /^ZZZZ/,/^BBBP.+ending vmstat -v#/{
        if ($0~/^BBBP/){c=c+1;print >"file"c;next}
	else {	print > "file"c}
     }  
' "file"