#!/usr/bin/perl #On affecte le contenu de la variable $ARGV[0] (Correspond au premier élément contenu dans le tableau @ARGV, c'est à dire au premier paramètre qui se trouve sur la ligne de commande) à la variable $fichier1 $fichier1=$ARGV[0]; #On affecte le contenu de la variable $ARGV[1] (Correspond au deuxième élément contenu dans le tableau @ARGV, c'est à dire au deuxième paramètre qui se trouve sur la ligne de commande) à 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 FICHIERENTREE1 open(FICHIERENTREE1, $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 FICHIERENTREE2 open(FICHIERENTREE2, $fichier2); #On ouvre en écriture le fichier resultat.html et on le référence sous le nom FICHIERSORTIE #Si le fichier n'existe pas, il est créé #Si le fichier existe déjà, son contenu est écrasé open(FICHIERSORTIE, ">resultat.html"); #On crée un compteur $compteur et on l'initialise à 0 $compteur=0; #On écrit le début du fichier html print FICHIERSORTIE "\n"; # On écrit l'entête print FICHIERSORTIE "\n"; #On écrit le début du corps print FICHIERSORTIE "\n"; #On écrit le début du tableau print FICHIERSORTIE "\n"; #On écrit l'entête du tableau print FICHIERSORTIE "\n"; #Tant qu'on peut associer une ligne du fichier référencé sous le nom "FICHIERENTREE1" à la variable $ligne1 et une ligne du fichier référencé sous le nom "FICHIERENTREE2" à 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 seulement si celui-ci est un retour à la ligne chomp($ligne1); #On supprime le dernier caractère contenu dans la variable $ligne2 seulement si celui-ci est un retour à la ligne chomp($ligne2); #On écrit le contenu des colonnes de la ligne du tableau print FICHIERSORTIE "\n"; } #On écrit la fin du tableau print FICHIERSORTIE "

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

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