Shell Programming and Scripting

"RPT TRIALB           ABC   LIMITED"
"                     TRIAL BALANCE"
"                     FOR THE PERIOD ENDED DECEMBER 2009"
""
""
""
"A","Retail Bank1","1234",1000,0.00,738295.08,0.00
"B","Retail Bank2","5678",2000,0.00,738295.08,0.00
"C","Retail Bank3","9101",2000,0.00,738295.08,0.00
"D","Retail Bank4","A984",-2000,0.00,738295.08,0.00
"E","Retail Bank5","23215",0.00,0.00,738295.08,0.00
"","","",,,,
"","","",,,,
"END OF REPORT"

head -n -3 file name --> will remove last 3 lines
sed '1,6d' file name --> will remove first 6 lines

#!/usr/local/bin/perl

use strict;
use warnings;

my $bankfile='bankfile';
my $bfinvalid="$bankfile" . ".invalid";
my $logfile='logfile';
my @temparr=();
my $sum=0;

open(BF,$bankfile) or die "Error opening input file $bankfile: $!\n";
my @bankdata=<BF>;
close(BF);

for (1 .. 6) {
shift(@bankdata);
}

for (1 .. 3) {
pop(@bankdata);
}

foreach my $record (@bankdata) {
chomp($record);
my @splitarr = split(/,/,$record);
push(@temparr, "$record\n") if ($splitarr[2] !~ /[a-zA-Z]/ && $splitarr[3] !~ /^0.00/);
}

foreach my $amount (@temparr) {
chomp($amount);
my @splitarr = split(/,/,$amount);
$sum += $splitarr[3];
}

if ($sum == 0) {
open(LF,">$logfile") or die "Error opening logfile $logfile: $!\n";
print LF "Bankfile $bankfile: Sum is Zero\n";
close(LF);
}
else {
rename $bankfile, $bfinvalid;
}

open(LF,">$logfile") or die "Error opening logfile $logfile: $!\n";

open(LF,">>$logfile") or die "Error opening logfile $logfile: $!\n";

awk -F, -v n=$(wc -l < file) '
NR < 7 || $3 ~ /[A-Za-z]/ || int($4)==0 {next}
NR==(n-2){exit}
{s+=$4}
END{if(!s)print "Sum is Zero" > "Logfile"}
1' file

awk -F, -v n=$(wc -l < file) '
NR < 7 || $3 ~ /[A-Za-z]/ || int($4)==0 {next}
NR==(n-2){exit}
1' file