#!/usr/bin/perl 

#Création d'une variable $fichier1 qui contient le 1er argument de la ligne de commande
$fichier1=$ARGV[0];
#Création d'une variable $fichier2 qui contient le 2ème argument de la ligne de commande
$fichier2=$ARGV[1];
#Ouverture $fichier1 en lecture
open(ENTREE1, $fichier1);
#Ouverture $fichier2 en lecture
open(ENTREE2, $fichier2);
#Ouverture d'un nouveau fichier html en écriture
open(SORTIE, ">resultat.html");
#Création d'un compteur
$compteur=0;
#Insertion des balises html du fichier html
print SORTIE "<html>\n";
# On écrit l'entête
print SORTIE "<head></head>\n";
#On écrit le corps
print SORTIE "<body>\n";
#On écrit le début d'un tableau
print SORTIE "<table border=\"1\">\n";
#On écrit l'entête du tableau
print SORTIE "<tr bgcolor=\"blue\"><td><center><font color=\"red\"><b>N&#176; ligne</b></font></center></td><td><center><font color=\"red\"><b>",$fichier1,"</b></font></center></td><td><center><font color=\"red\"><b>",$fichier2,"</b></font></center></td></tr>\n";
#Tant qu'il y a des lignes dans $fichier1 et $fichierk
while (($ligne1=<ENTREE1>) && ($ligne2=<ENTREE2>)) {
	#Ajouter 1 au compteur
	$compteur++;
	#Supprimer les retours à la ligne dans $fichier1
	chomp($ligne1);
	#Supprimer les retours à la ligne dans $fichier2
	chomp($ligne2);
	#Remplir le tableau avec les lignes des fichiers
	print SORTIE "<tr><td>",$compteur,"</td><td>",$ligne1,"</td><td>",$ligne2,"</td>\n";
}

#On écrit la fin du tableau
print SORTIE "</table>\n";
#On écrit la fin du corps
print SORTIE "</body>\n";
#On écrit la fin du fichier html
print SORTIE "</html>\n";
#Fermeture du fichier resultat
close(SORTIE);
#Fermeture du $fichier2
close(ENTREE2);
#Fermeture du $fichier1
close(ENTREE1);
