#!/usr/bin/perl

my $filename02 = "unapproved.txt";
my $filename03 = "approved.txt";
my $filename04 = "compared.txt";

open(UNAPPROVED,"+<$filename02") || die "Can't open file $filename02"; # open destination text file
open(APPROVED,"+<$filename03") || die "Can't open file $filename03"; # open destination text file
open(COMPARED,"+>$filename04") || die "Can't open file $filename04"; # open destination text file

my @unapprovedline;
my @approvedline;

@approvedall = <APPROVED>;
@unapprovedall = <UNAPPROVED>;

close APPROVED;
close UNAPPROVED;

$numoflines01 = @unapprovedall;
$numoflines02 = @approvedall;

for ($x = 0; $x < $numoflines01; $x++) {

	$line01 = @unapprovedall[$x];
	@unapprovedline = split (/\"/, $line01);

	for ($y = 0; $y < $numoflines02; $y++) {
		$line02 = @approvedall[$y];
		@approvedline = split (/\"/, $line02);

		$uleft = @unapprovedline[5];
		$aleft = @approvedline[5];
		$uright = @unapprovedline[7];
		$aright = @approvedline[7];
		$uping = @unapprovedline[13];
		$aping = @approvedline[13];

		if ($uping eq $aping && $uleft eq $aleft && $uright eq $aright) {
			print COMPARED "\"", @approvedline[1], "\"", "\t";
			print COMPARED "\"", @approvedline[3], "\"", "\t";
			print COMPARED "\"", @approvedline[5], "\"", "\t";
			print COMPARED "\"", @approvedline[7], "\"", "\t";
			print COMPARED "\"", "@approvedline[9] @unapprovedline[1],", "\"", "\t";
			print COMPARED "\"", @approvedline[11], "\"", "\t";
			print COMPARED "\"", @approvedline[13], "\"", "\t", "\n";

		}
		else {
			print COMPARED "\"", @unapprovedline[1], "\"", "\t";
			print COMPARED "\"", @unapprovedline[3], "\"", "\t";
			print COMPARED "\"", @unapprovedline[5], "\"", "\t";
			print COMPARED "\"", @unapprovedline[7], "\"", "\t";
			print COMPARED "\"", @unapprovedline[9], "\"", "\t";
			print COMPARED "\"", @unapprovedline[11], "\"", "\t";
			print COMPARED "\"", @unapprovedline[13], "\"", "\t", "\n";

		}
	}
}

close COMPARED;


# delete UNAPPROVED