UNIX for Advanced & Expert Users

awk ' /THIS/{ print;x=1;while( x++ <= 30 ) { getline;print } exit; } ' file > newfile

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

open(FILE, "<$ARGV[0]") || die "Unable to open file $ARGV[0] <$!> \n";
open(OUTPUTFILE, ">$ARGV[1]") || die "Unable to open file $ARGV[1] <$!> \n";

my ($searchword, $content, $lines, $set);

$searchword = $ARGV[2];
$set = 0;
while( chomp($content = <FILE>) ) {
  if( $content =~ m/$searchword/ ) {
    $set = 1;
    print OUTPUTFILE $content;
    print OUTPUTFILE "\n";
  }
  if ( $lines > 30 ) {
    last;
  }
  if( $set == 1 ) {
    $lines++;
  }
}

close(FILE);
close(OUTPUTFILE);

exit 0