Shell Programming and Scripting

awk -F, '{f=($NF!="0.00" && $2 !~ /[a-zA-Z]/ && $0!~ /End of File/)?1:0}f' file

while read line
do
        sed '/.*,[A-Za-z]/d' <<< $line | sed '/^End of File/d'  | sed '/.*,0\.00/d'
done < input > output

Bank1,123,100.00
Bank2,456,200.00

# cat erasefile
Bank1,123,100.00
Bank2,456,200.00
Bank3,A789,300.00
Bank4,1011,0.00
End of File

# sed -e '/.*[A-Z][0-9].*/d
/,0.00*$/d
/End of File/d' erasefile
Bank1,123,100.00
Bank2,456,200.00

#!/usr/bin/perl
 
my $input='bankdata' ;
 
open(INPUT, "$input") or die "Error opening file: $!\n" ;
   while (<INPUT>) {
   chomp $_;
   @arrr = split(/,/);
    if ($arrr[0] !~ /^End of File/ ) {
      if ($arrr[1] !~ /[A-Z]/) {
 	if ($arrr[2] !~ /^0.00/) {
 	  print ("$_\n");
    }
   }
  }

 else {
 next ;
 }
}
close(INPUT);