#!/usr/bin/perl #On affecte le contenu de la variable $ARGV[0] à la variable $fichier1 $fichier1=$ARGV[0]; #On affecte le contenu de la variable $ARGV[1] à la variable $fichier2 $fichier2=$ARGV[1]; #On ouvre en lecture le fichier dont le nom est contenu dans la variable $fichier1 et on le référence sous le nom FILE1 open(FILE1, $fichier1); #On ouvre en lecture le fichier dont le nom est contenu dans la variable $fichier2 et on le référence sous le nom FILE2 open(FILE2, $fichier2); #On ouvre en écriture le fichier resultat.html et on le référence sous le nom OUT #Si le fichier n'existe pas, il est créé #Si le fichier existe déjà, son contenu est écrasé open(OUT, ">resultat.html"); #On crée un compteur $compteur et on l'initialise à 0 $compteur=0; #On écrit le début du fichier html print OUT "\n"; # On écrit l'entête print OUT "\n"; #On écrit le début du corps print OUT "\n"; #On écrit le début du tableau print OUT "\n"; #On écrit l'entête du tableau print OUT "\n"; #Tant qu'on peut associer une ligne du fichier référencé sous le nom "FILE1" à la variable $ligne1 et une ligne du fichier référencé sous le nom "FILE2" à la variable $ligne2, on exécute le bloc d'instructions while (($ligne1=) && ($ligne2=)) { #On incrémente le compteur $compteur++; #On supprime le dernier caractère contenu dans la variable $ligne1 si c'est un retour à la ligne chomp($ligne1); #On supprime le dernier caractère contenu dans la variable $ligne2 si c'est un retour à la ligne chomp($ligne2); #On écrit le contenu des colonnes de la ligne du tableau print OUT "\n"; } #On écrit la fin du tableau print OUT "

",$fichier1,"	N° ligne	",$fichier2,"
",$ligne1,"	",$compteur,"	",$ligne2,"

\n"; #On écrit la fin du corps print OUT "\n"; # On écrit la fin du fichier html print OUT "\n"; #On ferme le fichier d'entrée 2 close(FILE2); #On ferme le fichier d'entrée 1 close(FILE1); #On ferme le fichier resultat.html close(OUT);