#!/usr/bin/perl
# ce programme se charge de créer la structure d'une page HTML 
#qu'il écrit sur la sortie standard
open(FILEFR,"$ARGV[0]"); 
# on ouvre le fichier qu'on va lire
open(FILEANG,"$ARGV[1]"); 
# on ouvre le fichier qu'on va lire une deuxième fois
open(FILEOUT, ">Resultat3-2.html"); 
# on ouvre le fichier dans lequel on va écrire
$i=1; #on initialise $i à 1
print FILEOUT "<HTML>\n"; # on écrit l'entête
print FILEOUT "<HEAD></HEAD>\n"; # on écrit le corps de la page
print FILEOUT "<BODY>\n";
print FILEOUT "<TABLE>\n"; # on fait un tableau
while (($lignefr=<FILEFR>) && ($ligneang=<FILEANG>)) { 
#tant qu'on peut lire quelque chose dans les deux fichiers
		print FILEOUT "<TR><TD>$i</TD><TD>$lignefr</TD><TD>$ligneang</TD> </TR>"; 
		# on met dans chaque ligne : 3 colonnes : 
		#le numéro, la phrase en français et la phrase en anglais
		$i++;
	}
print FILEOUT "</TABLE>\n"; # on ferme le tableau
print FILEOUT "</BODY>\n"; # on écrit la fin du fichier html
print FILEOUT "</HTML>\n";
close(FILEFR); # on ferme le fichier en lecture
close(FILEANG); # on ferme le fichier en lecture
close(FILEOUT);# on ferme le fichier en sortie