use locale;
#!/usr/bin/perl
#On ouvre en lecture le fichier à traiter
#et on le fait pointer sous le nom FILEIN
open(FILEIN, "<$ARGV[0]");
#On ouvre en lecture le 2ème fichier à traiter
#et on le fait pointer sous le nom FILEIN2
open(FILEIN2, "<$ARGV[1]");
#On ouvre en écriture le fichier 1stw.txt
#et on le fait pointer sous le nom FILEOUT
#Lorsque le fichier n'existe pas il est créé
#Lorsque le fichier existe déjà le contenu existant
#est remplacé par le contenu que nous allons mettre
open(FILEOUT, ">result2.html");
#On crée un compteur initialisé à 0
$i=0;
# on écrit l'entête
print FILEOUT "\n";
# on écrit le corps de la page
#On peut mettre un peu les propriétés que l'on veut!
print FILEOUT "Traduction\n";
#On continue de créer le corps du document
print FILEOUT "\n";
print FILEOUT "\n";
print FILEOUT "\n";
#On va créer un tableau
print FILEOUT "\n";
#Tant qu'il y a des lignes dans chacun des fichiers
#On exécute le bloc d'instructions
while (($lines1=) && ($lines2=)) {
#On incrémente le compteur
$i++;
#On écrit le tableau avec son contenu!
print FILEOUT "| ",$i," | ",$lines1," | ",$lines2," |
\n";
}
# on écrit la fin du tableau ainsi que du fichier html
print FILEOUT "
\n";
print FILEOUT "\n";
print FILEOUT "\n";
#On ferme le fichier en lecture et le fichier en sortie
close FILEOUT;
close FILEIN;