#!/usr/bin/perl
#------------------------------------------------------------------
#Exercice 2 :
# Programme qui prend en entrée deux textes (traduction l'un de l'autre) 
# et qui produit en sortie : un alignement numéroté par paragraphe (html)
#------------------------------------------------------------------

open (FILEFR, "$ARGV[0]"); # ouvre le fichier placé en premier argument (fic francais)
open (FILEEN, "$ARGV[1]"); # ouvre le fichier placé en second argument (fic anglais)

print "Donner un nom au fichier de sortie\n";
$out=<STDIN>;
chomp $out;
open (FILEOUT, ">$out.html");
print FILEOUT "<HTML>\n<HEAD><TITLE>$out</TITLE></HEAD>\n<BODY>\n<TABLE>\n";
$i=1 ;
while (($ligne1 = <FILEFR>) && ($ligne2 = <FILEEN>)) # on parcourt les deux textes en parallèle
{
	print FILEOUT "<TR><TD VALIGN=\"TOP\">$i</TD><TD>$ligne1</TD><TD>$ligne2</TD></TR>\n"; # la numérotation est alignée en haut de case (comme dans les pièces de théatre)
	$i++ ;
}
print FILEOUT "</TABLE>\n</BODY>\n</HTML>";

close (FILEOUT);
close (FILEFR);
close (FILEEN);