Shell Programming and Scripting

$n -= grep {/^# PRODUCT/} @goodlines;

# PRODUCT/} @goodlines;

cat >INPUTFILE
1
# comment
3
#
#
4
$ perl -lne '!/^#/ && print' INPUTFILE 
1
3
4

my $goodfile;
my $badfile;
my $footer_len = 4;
my $datarec_line = 1;
my ( @header, @footer, @goodlines, @badlines, @fields);
my $line;
$line = $_;
while (<FILE>)
{
$line = $_;
@fields = split (/\|/, $line);

if( $fields[57] eq " ")
{
 push @badlines, $line;
}

elsif( $fields[32] eq "N.A."  && $fields[33] eq "N.A." && $fields[34] eq "N.A." && $fields[38] eq "N.A." && ($fields[62] eq "N.A." ||  $fields[62] eq " "))
{
push @badlines, $line;
}

else
{
push @goodlines, $line;
}

}

@footer = splice @goodlines, -$footer_len;

my $n = @goodlines;
$n -= grep {/^# PRODUCT/} @goodlines;
$footer[$datarec_line] =~ s/\d+/$n/;

open my $fh, ">", $goodfile;
print $fh  @header, @goodlines, @footer;
close $fh;

open my $fh1, ">", $badfile;
print $fh1 @badlines;
close $fh1;

START-OF-FILE .......  so on ....
# PRODUCT=Corp/Pfd   --> 107 Line

while (<FILE>) { $line = $_; @fields = split (/\|/, $line);