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

# open, but don't slurp
open ALL, "< $allLog" or die $!;
open ERR, "< $errLog" or die $!;
open FLE, "> $fileLog" or die $!;

while (<ERR>) {
    {
        local $/ = $_;
        my $diffs = <ALL> || "Alert: '$_' from $errLog not found\n";
        chomp $diffs;
        print FLE $diffs;
    }
}
print FLE while <ALL>;

close FLE or die $!;
close ERR or die $!;
close ALL or die $!;