#!/usr/bin/perl
use strict;

our $fname1 = $ARGV[0];
our $fname2 = $ARGV[1];
our %dataHash;

processFile($ARGV[0]);
processFile($ARGV[1]);


our @kArr = sort (keys %dataHash);
for(my $i = 0; $i <= $#kArr; $i++){
print "[ $dataHash{$kArr[$i]}{f1} | $dataHash{$kArr[$i]}{f2} | $dataHash{$kArr[$i]}{f3} | $dataHash{$kArr[$i]}{f4} | $kArr[$i] ]\n";
print $dataHash{$kArr[$i]}{buf};
}

sub processFile{
my ($fname) = @_;

my $buf;
my $key;
open(IFILE, $fname);
while(<IFILE>){
chomp();
if(m/^\[ ([SR]) \| ([0-9]+) \| ([0-9]+) \| ([0-9]+) \| ([0-9]+) \]/){
$dataHash{$5}{f1} = $1;
$dataHash{$5}{f2} = $2;
$dataHash{$5}{f3} = $3;
$dataHash{$5}{f4} = $4;
$dataHash{$5}{buf} = $buf;
$buf = "";
} else {
$buf .= "$_\n";
}
}
close(IFILE);
}