#!/usr/bin/perl -w

# rlog.pl


$|++;               # stdout hot
use strict;         # avoid d'oh! bugs
require 5;          # for following modules



my $logDir  = '/cygdrive/c/Rsync/logs';
my $allLog  = "$logDir/200203021258.all";
my $errLog  = "$logDir/200203021258.err";
my $fileLog = "$logDir/200203021258.fil";



# slurp two existing logs into arrays:
open ERRLOG, "$errLog" or die "Error opening $errLog: $!";
my @err = <ERRLOG>;
close ERRLOG;

open ALLLOG, "$allLog" or die "Error opening $allLog: $!";
my @all = <ALLLOG>;
close ALLLOG;



# create @file from diff of ERR and ALL:
my %count;
my @file;
$count{$_}++ for ( @all, @err );
for ( keys %count ) {
  push @file, $_ unless ( $count{$_} == 2 );
}



# write $fileLog from @file:
open FILELOG, "> $fileLog" or die "Error opening $fileLog: $!";
for (@file) {
  print FILELOG;
}
close FILELOG;