#!/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 "\n"; # on écrit l'entête print FILEOUT "
\n"; # on écrit le corps de la page print FILEOUT "\n"; print FILEOUT "$i | $lignefr | $ligneang |