#!/perl
$logA = "/path/to/logfile1";
$logB = "/path/to/logfile2";
$outFile = "/path/to/resultant/File";

open (DIFF, "diff $logA $logB|";
open (OUT, ">$outFile");
select (OUT);
while (<DIFF>){print;}
close (OUT);
close (DIFF);
[download]