#!/usr/bin/perl
use warnings;
use strict;

my $report_file ;
my $status_file ;

my $r_Line;
my $s_Line;
my ($r_feld1 , $r_feld2, $r_datum1 , $r_datum2 ); 
my ($s_feld1 , $s_feld2, $s_datum ); 

my $found = 0;

if( $#ARGV == -1)
{
  print STDERR "Usage: $0 report status\n";
  exit 1;
}

$report_file =  $ARGV[0];
$status_file  = $ARGV[1];

open(REPORT, '<',  $report_file) or die $!;

while ( $r_Line = <REPORT> ) 
{
  chomp $r_Line;
  # alle Leerzeilen ignorieren
  if( $r_Line =~ /^[\s]*$/ )
  {
    next;
  }
   
  # Datei: report 
  # feld1z2 feld2z2 11/10/16 01:45:13       11/10/16 02:45:13
  ( $r_feld1 , $r_feld2, $r_datum1 , $r_datum2 ) = split("\t", $r_Line);
  # Spalte/Feld 4 ist gleich '-'
  if ( $r_datum2 eq '-' )
  {
    $found = 0;

    # open(STATUS, '+>>', $status_file) or die $!;
    open(STATUS, '+<', $status_file) or die $!;
    while ( $s_Line = <STATUS> ) 
    {
      chomp $s_Line;
      ( $s_feld1 , $s_feld2, $s_datum ) = split("\t", $s_Line);
      if ( $r_feld1 eq $s_feld1 && $r_feld2 eq $s_feld2 && $r_datum1 eq $s_datum )
      {
        $found = 1;
	next ;
      }
    }
    if ( $found == 0 )
    {
      # Kein Eintrag in Status Datei: status gefunden, daher append
      print STATUS $r_feld1 . "\t" . $r_feld2 . "\t" . $r_datum1  . "\n";
    }
    close(STATUS) or die $!;
  }
}

close(REPORT) or die $!;