#!/usr/bin/perl

##Le programme prend en entrée le fichier html (fichier SOURCE) et le fichier motif .txt (MOTIF)
 
 my $fichierddh=@ARGV[0];
 my $fichiermotif=@ARGV[1];
 my $fichierout="fichier_surligne.html"; ##donne en sortie un fichier html

open (OUT,">$fichierout") or die "Pb sur l'ouverture du fichier $fichierout !!! ";
print OUT "<HTML>\n<BODY>\n"; ##OUVERTURE DES BALISES HTML

open(MOTIF,$fichiermotif) or die "Pb sur l'ouverture du fichier $fichiermotif !!! ";
open(SOURCE,$fichierddh) or die "Pb sur l'ouverture du fichier $fichierddh !!! ";
while ($ligne=<SOURCE>)
{ 	

	seek(MOTIF,0,0);#revient au début du fichier motif, évite de devoir le rouvrir à chaque ligne du fichier SOURCE

	while($motif=<MOTIF>)
	{	

		chomp($motif);

			if($ligne=~/($motif)/g) ##si le motif se trouve dans la ligne
		{	
										$ligne=~s/\n/ /g;

				$ligne=~s/($motif)/<FONT style="BACKGROUND-COLOR: chartreuse">$motif<\/FONT>/g; ##On remplace le motif par une version balisée: le syntagme apparaîtra surligné en jaune
		}
	}
	print OUT "$ligne";

	
}
close MOTIF;
close SOURCE;
print OUT "</BODY>\n</HTML>";##FERMETURE DES BALISES
close OUT;