#!/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 "\n\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=) { seek(MOTIF,0,0);#revient au début du fichier motif, évite de devoir le rouvrir à chaque ligne du fichier SOURCE while($motif=) { chomp($motif); if($ligne=~/($motif)/g) ##si le motif se trouve dans la ligne { $ligne=~s/\n/ /g; $ligne=~s/($motif)/$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 "\n";##FERMETURE DES BALISES close OUT;