#! /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/);
   }   
   


##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
#require Exporter;
#our %devel_table;
#our @EXPORT = qw(%devel_table);
#our @ISA = qw(Exporter);


our %devel_table;

%devel_table = ("Townhomes West" => "M",
              #lots more values in here, of course
             "Winding Creek Family" => "H",
             "Dayton Lane Gardens" => "H");

1;


##</code><code>##

Variable "%devel_table" is not imported at .//sopw.pl line 29.
Global symbol "%devel_table" requires explicit package name at .//sopw.pl line 29.
Execution of .//sopw.pl aborted due to compilation errors.