#!/usr/local/bin/perl

## combine two n-best files

use strict;
use warnings;

my $fileName1 = shift;
my $fileName2 = shift;

open(I1FILE, $fileName1) or die("Couldn't open the file $fileName1\n");
open(I2FILE, $fileName2) or die("Couldn't open the file $fileName2\n");

while(my $line1 = <I1FILE>){
	chomp $line1;
	if($line1 ne ''){
		print $line1,"\n";
		next;
	}
	while(my $line2 = <I2FILE>){
		chomp $line2;
		if($line2 ne ''){
			print $line2,"\n";
			next;
		}
		last;
	}
	print "\n";
}
close I1FILE;
close I2FILE;