#! /usr/bin/perl

use strict;
use warnings;
require "/usr/local/include/dpcs_stdlib.pl";
require "/usr/local/include/dpcs_delim.pl";
use lookup;

open INFILE, "rentroll.txt" or die "Could not open rentroll.txt $!";
open OUTFILE, ">parsed.rnt.txt" or die "could not open parsed.rnt.txt for write $!";

my $line= q{};
my @Page = ();
#my $lastLine = q{Ending Balance:};
#my $new_rec = 0;
#my $cnt = 0;
#my (@pos_nums, @neg_nums); 
while ($line = <INFILE>) 
   {
   chomp $line;
   push @Page, $line;
   if ($line =~/^Development:/)
      {
      my $devel = substr($line,13);
      print OUTFILE "Development = $devel\n";
      my $check = $devel_table{$devel};
      print OUTFILE "check = $check\n";
      if ($check =~ "M")
         {
         print OUTFILE "Middletown\n";
         }
     elsif ($check =~ "H")   
         {
         print OUTFILE "Hamilton\n";
         }
    else
         {
         print OUTFILE "Community not in lookup table\n";
         }
      }
   #last if ($line =~ /$lastLine/);
   }