Shell Programming and Scripting

#!/usr/bin/perl
if($#ARGV+1==2)
{
open(FH1,"<$ARGV[0]")||die("File not found");
open(FH2,">$ARGV[1]");
my $i=0;


while($x=<FH1>)
{

if ($x =~ /HOLD/ ) {
    print "Is hold\n";

 while($y=<FH1>)
   {
   print  FH2"$x;\n"
   }

 }
}
}


close (FH1);
close (FH2);

,,26,OCC_CLK_USB3_COCCLKA_3,0.925,0.000,0,1
,,27,OCC_CLK_USB3_COCLKA_DIV2_1,2.938,0.000,0,2
,,28,OCC_CLK_USB3_COCLKA_DIV4_2,6.936,0.000,0,2
 ,,HOLD, Clock Group, WNS, TNS, No. Of Max Violating Paths,Logic level
,,1,async_default,0.080,0.000,0,2
,,2,clock_gating_default,0.021,0.000,0,5
,,3,ATE_CLK,-0.076,-0.076,1,2

,,1,async_default,0.080,0.000,0,2
,,2,clock_gating_default,0.021,0.000,0,5
,,3,ATE_CLK,-0.076,-0.076,1,2

,,HOLD, Clock Group, WNS, TNS, No. Of Max Violating Paths,Logic level
;
 ,,HOLD, Clock Group, WNS, TNS, No. Of Max Violating Paths,Logic level
;
 ,,HOLD, Clock Group, WNS, TNS, No. Of Max Violating Paths,Logic level

sed '1,/HOLD/d' file

while($y=<FH1>)
{
    print FH2"$x;\n"
}

while($y=<FH1>)
{
    print FH2"$y;\n"
}

#! /usr/bin/perl -w
use strict;

open IN, "< $ARGV[0]";
open OUT, "> $ARGV[1]";

my $f = 0;

for (<IN>) {
    if (!/HOLD/ && $f == 0) {
        next;
    }
    elsif (/HOLD/ && $f == 0) {
        $f = 1;
    }
    else {
        print OUT;
    }
}

close OUT;
close IN;