use warnings;
use strict;


# Variables
my $pkt_file = $ARGV[0]; 
my $dat_file = $ARGV[1]; 

# Read data file
open (IN_FILE, "<", $pkt_file) or die "ERROR Opening $pkt_file (Error = $!)\n";
 print "Opening: $pkt_file for read...\n";

# Search IN_FILE for Packet Headers
while (<IN_FILE>) {
    my $line_in = $_;
      if (($line_in =~ /(\w+) (\w+)/)) {
          open (OUT_FILE, ">>", "$2_tlmval.txt") or die "ERROR Opening file (ERROR = $!)\n";
          print "Opening $2_tlmval.txt\n";
          print OUT_FILE " \n";
          print OUT_FILE "$2:\n"; #prints CSTOL Label
          print OUT_FILE " \n";
          my $pkt = "$2";
          my $out_file = "$2_tlmval.txt";
          
          # Close OUT_FILE
          close(OUT_FILE);
          print "Closing: OUT_FILE\n";
          
          #Open data_list file for read
          open (DAT_FILE, "<", $dat_file) or die "ERROR Opening $dat_file (Error = $!)\n";
          print "Opening: $dat_file for read...\n";
          
          # Reopen OUT_FILE for write
          open (OUT_FILE,, ">>", $out_file) or die "ERROR Opening $out_file (Error = $!)\n";
          print "Re-opening: $out_file for write...\n";
          
          #Search DATA_LIST file
          while (<DAT_FILE>) {
              if (($line_in =~ /($pkt) (\w+) = (\d+)/)) {
                  print OUT_FILE "check $pkt $2 vs $3\n";
                  }
              }
          }

      

# Close IN_FILE
close(IN_FILE);
 print "Closing: IN_FILE\n";

#Close OUT_FILE
close (OUT_FILE);
print "Closing: OUT_FILE\n";

# Close DAT_FILE
close(DAT_FILE);
print "Closing: DAT_FILE\n";