#!/usr/local/bin/perl
# ce programme se charge de créer la structure d'une page HTML

#on ouvre le fichier et on récupère les lignes dans une liste.
open (PTR_FICHIER, "desqueyroux.fr") or die "impossible";
@francais = <PTR_FICHIER>;
close PTR_FICHIER;

#on ouvre le deuxième fichier et on récupère les lignes dans une autre liste.
open (PTR_FICHIER, "desqueyroux.ang") or die "impossible";
@anglais = <PTR_FICHIER>;
close PTR_FICHIER;

#on ouvre un fichier de sortie dans lequel on écrit la structure html
open (FILEOUT, ">>alignement.html");
print FILEOUT "<HTML>\n";
#on écrit l'entête
print FILEOUT "<HEAD><TITLE>alignement francais-anglais</TITLE></HEAD\n";
#on écrit le corps de la page
print FILEOUT "<BODY><TABLE>";

#on calcule la taille d'une des listes créées (elles ont la même taille)
my $numder = $#anglais;

#on met en place une boucle for qui va de la première valeur de la liste à la
#dernière et on l'écrit sur une ligne du fichier de sortie, précédée d'un n°
for ($i=0;$i<=$numder;++$i)
{
$compteur = $i +1;
$ligneang = "$anglais[$i]" ;
$lignefr = "$francais[$i]";
print FILEOUT "<TR><TD>",$compteur,"</TD><TD>",$lignefr,"</TD><TD>",$ligneang,"</TD></TR>" ;
}

#on écrit la fin du fichier HTML (on ferme toutes les balises)
print FILEOUT "</TABLE></BODY>\n";
print FILEOUT "</HTML>\n";
