#! /usr/bin/perl

my %dayTable0 = (
   "ZELDA"  => "U",
   "YAKOV"  => "U",
   "XAVIER" => "A",
   "WALTER" => "A",
   "VICKY"  => "A",
);
my %dayTable1 = (
   "ZELDA"  => "A",
   "YAKOV"  => "A",
   "XAVIER" => "U",
   "WALTER" => "U",
   "VICKY"  => "U",
);
my %nightTable0 = (
   "ALISTAIR" => "U",
   "BARB"     => "U",
   "CONNOR"   => "A",
   "DENISE"   => "A",
   "ERIN"     => "A",
);
my %nightTable1 = (
   "ALISTAIR" => "A",
   "BARB"     => "A",
   "CONNOR"   => "U",
   "DENISE"   => "U",
   "ERIN"     => "U",
);

open (FILE, my $file) or die "Can't open $file $!\n";
chomp (my @lines = <FILE>);
foreach my $line (@lines) {
   my @line = split (/,/,$line);
   if ($line[0] =~ /CMD/) {
      my $state = $line[3];
      my $unit = $line[5];
      if ($state =~ /OFF/ && $unit =~ /PRI/) {
         %table = %dayTable0;
      } elsif ($state =~ /ON/ && $unit =~ /PRI/) {
         %table = %dayTable1;
      } elsif ($state =~ /OFF/ && $unit =~ /BU/) {
         %table = %nightTable0;
      } elsif ($state =~ /ON/ && $unit =~ /BU/) {
         %table = %nightTable1;
      } else {
         print "UNKNOWN STATE!! GO FIX SOMETHING!!!";
      }
   }
   if ($line[0] =~ /STAT/) {
      my $name = $line[5];
      my $status = $line[4];
      my $value = $table{$name};
<p> Have tried several variants of above line. $table{ZELDA} gives me the expected static response<\p>
      print "LOOKUP STATUS: $value\n";
   }
}