#/usr/bin/perl # 1 - Récupération des paramètres my $mot = "contact"; print "Bonjour cher utilisateur. \n Peux-tu entrer le nom du fichier de travail ?\n"; my $fichierdetravail = ; #on met dans la variable $fichierdetravail #ce que l'utilisateur tape au clavier print "Combien voulez vous de mots avant?\n"; my $nombredemotsav = ; #on met dans la variable $nombredemots #ce que l'utilisateur tape au clavier print "Combien voulez vous de mots après?\n"; my $nombredemotsap = ; #on met dans la variable $nombredemots ce que l'utilisateur tape au clavier chomp ($fichierdetravail); # chomp enlève le dernier caractères si c'est un saut de ligne # au contraire, chop enlève le dernier caractère quel qu'il soit # 2 - Préparation de la sortie HTML use locale; # pour dire qu'on est en France et donc qu'on utilise des accents open (sortie, ">Resultat-et4-exo1.html"); print sortie "\n"; print sortie "

Concordance de \"$mot\" dans le fichier \"$fichierdetravail\"
construite avec le programme \"$0\"

\n"; # $0 fait référence au programme qui est en train de s'exécuter print sortie "\n"; print sortie ""; # 3 - Programme pour la concordance $a=1; open (FILE, "$fichierdetravail"); while (my $ligne=) { $ligne=~s/â/â/g;# nettoie $ligne=~s/ï/ï/g;# nettoie $ligne=~s/û/û/g;# nettoie $ligne=~s/ê/ê/g;# nettoie $ligne=~s/é/é/g;# nettoie $ligne=~s/è/è/g;# nettoie $ligne=~s/î/\î/g;# nettoie $ligne=~s/ô/\ô/g;# nettoie $ligne=~s/ç/\ç/g;# nettoie $ligne=~s/à/\à/g;# nettoie while ($ligne=~/\b$mot\b/gi) { # 'g' est une option de la recherche qui permet d'aller chercher #toutes les occurrences et \b permet de dire : 'début de mot' #et 'fin de mot' et 'i' est une option qui permet #de dire que c'est indépendant de la casse my $contextegauche=$`; my @gauche=split(/[\W+]/, $contextegauche); my $pole=$&; my $contextedroit=$'; my @droit=split(/[\W+]/, $contextedroit); my $g=""; my $d=""; for ($i=$#gauche-$nombredemotsav+1; $i<=$#gauche; $i++) { next if ($i<0); $g.="$gauche[$i]\t"; } $i=0; for ($i=0; $i<=$nombredemotsap+1; $i++){ $d.="$droit[$i]\t"; } print sortie ""; $a++; }# fin de while }# fin de while # 4 - Fin d'un programme propre print sortie "

Compteur	Contexte gauche	Pole	Contexte droit
$a	$g	$pole	$d EBV

\n\n\n"; # on ferme le tableau, le body et le document html close sortie; close FILE; # FIN !!